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ABSTRACT 


The DDNTUT program is an interactive tutorial, located 
on the ISIA host computer in Marina del Rey, California. 
The program is designed to first acquaint the new user on 
the Defense Data Network with the TOPS-20 operating system 
and its executive level commands. Following this, the user 
is taken step by step through nine different programs 
available on TOPS-20, knowledge of which is integral to 
effective use of the network. The user can, at any time, 
quit the tutorial, return to previously studied at sections, 


and/or skip sections he may be familiar with. 
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I. HISTORY OF THE DEFENSE DATA NETWORK 
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A. INTRODUCTION 

The Defense Data Network (DDN), an approaching world- 
wide military data communications networking system, was 
founded by and remains under the aegis of the Defense Com- 
munication Agency (DCA) for the Department of Defense (DoD). 
The DDN is not one, but rather several networks, with a wide 
variety of compatible hardware and software which allows 
interoperability and communications. The most commonly used 
of these networks are the ARPANET (Advanced Research 
Projects Agency Network), the MILNET ‘Can unclassified 
operational Military Network) and the MINET (Movement 
Information Network, which is relatively new. 

A look into how these networks and others of a similar 
nature came into existence must, perforce, start with the 


development of the concept of “packet switching." 


B. PACKET SWITCHING 

Packet switching iS ameans of handling data being 
transmitted through the various communication channelS or 
linkages within a network. The theory is simple: local 
Interface Message Processors (IMPs) break up or subdivide 
the messages, files, programs, etc., being transmitted, into 


smaller “packets"™ which are then treated as individual 


messages, all labeled and sequentially ordered as part of 
the larger message. Located throughout the network are 
“switching nodes", which receive each packet and check for 
and correct any errors or glitches which may have occurred 
during transmission. The node will then either collect and 
order all of the separate packets of a message before for- 
warding the completed whole to the intended recipient, or 
will simply forward each individual packet on as it is 
received and corrected. (See Figure 1.1.) 

Packet switching is highly cost effective: switching 
nodes are completely automated, as well as reliable and 
inexpensive. Easy to install and keep up, there are now 
over a hundred of them scattered across the USA, and 
spreading rapidly throughout Europe and the Far East. 
Encryption of the system to permit vastly increased 
Classified material handling capability has been budgeted 
for and is more slowly being incorporated throughout the 
system, with full online capabilities expected by the late 


1980s. 


C. ARPANET 

The first of the packet switching networks was devel- 
oped under a 1969 program run by the Defense Advanced Re- 
search Project Agency (DARPA). The experimental network 
thus conceived and put into operation was dubbed ARPANET. 


The network became a major success in the rapid, reliable, 
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and inexpensive sharing of data, ideas, theories, resources, 
and software. By 1975, a considerable number of operational 
users as well as researchers and experimenters had been 
authorized access to the net, and control of the asset was 
shifted to the Defense Communication Agency. Both military 
and civilian research projects are supported by ARPANET. 
The knowledge and experience, tools and services developed 
over the years have formed the basis for most if not all 
packet switching networks, both commercial and military, 


currently under development or in use today. 


D. AUTODIN II 

A DoD study initiated in 1974 predicted such imminent 
major advances and increases in the use of computer technol- 
ogy by the military services that a decision was made to 
develop a packet switching network dedicated to and internal 
to the DoD itself. This network was to have the full heter- 
ogenous hardware and software capabilities already found in 
ARPANET, and was, additionally, to have the added features 
of standard military message precedence handling and en- 
crypted transmission for classified material. 

In 1976, the contract for this new network was awarded 
to Western Union and given the name AUTODIN II. CAUTODIN I 
is the Western Union message switching network currently 
leased by the government since the early 1960’s). Between 


1976 and 1982, however, improvements in technology and 


increased cost conciousness on the part of the government, 
coupled with an added emphasis on redundancy and 
survivability, resulted in the government terminating the 
AUTODIN II contract and the subsequent development of the 


DDN under the DCA. 


E. FORMATION OF THE DDN 

DoD, in 1979, began interconnecting a number of its 
isolated computer networks through internet protocols’ re- 
sulting ina series of node computers linked by high-speed 
telephone lines. This was to become the “backbone™ of the 
DDN. By 1983 ARPANET had grown to include over 300 compu- 
ters, and was woefully inadequate in its ability to accommo- 
date the increasing numbers of military would-be ARPANET 
users. Thus, in September 1984, ARPANET was officially di- 
vided into two separate unclassified networks, with military 
research and development remaining under the ARPANET head- 
ing, and control reverting to DARPA, while operational mili- 
tary communication uses were directed to the newly 
designated MILNET, which remained under DCA control. Elec- 
tronic mail can still be sent between the two networks, but, 
as security safeguards are added to the MILNET, traffic will 
increasingly be limited and controlled by so-called “gate- 


ways’. 


II. AN OVERVIEW OF THE DEFENSE DATA NETWORK 


A. INTRODUCTION 

The DDN is’ envisioned as a worldwide unified packet 
switching network dedicated to meeting the data communica- 
tion requirements of the DoD. The network is subdivided into 
two functional areas: €1) the network backbone, comprising 
the trunk circuits and switching nodes, and (2) the access 
network, comprising local circuits and interfacing equipment 
allowing individual authorized users to connect to the back- 
bone. TOPS-20 is one of several timesharing operating system 
in current usage on the DDN. Additional information on TOPS- 
20 can be found in the <DOCUMENTATION> directory, as noted 


in the tutorial. 


B. THE BACKBONE 

The DDN backbone (IMPs and TACs) will eventually con- 
sist of some 200 nodes located at some 100 sites. Again, as 
mentioned earlier, redundancy and survivability are of key 
interest to DoD. Most of the transmission trunks will be via 
leased landline circuits, although some satellite transoce- 


anic links are already in operation. (See Figure 2.1.) 


C. THE ACCESS NETWORK 
Individual user terminals normally access the DDN via a 


host computer, which is in turn connected to the 
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tt 


aforementioned IMP. It is also possible, however, to connect 
a hardwired or dial-up terminal to the DDN via a Terminal 
Access Controller (TAC). (See Figure 2.2.) 

Fach host computer has a hostname and address as its 
primary means of identification. Additionally, each network 
has a network address associated with it. While hostnames 
(usually menemonic acronyms) are all that is necessary for 
sending electronic mail around the net, should you access 
the net via a TAC, you must use the equivalent numerical 
host address instead. 


Examples of hostnames and addresses are: 


Host Host Location Network 

address name type 
24.1.0.7 MINET-LON-TAC DCA London MINET 
26.3.0.16 AMES-VMSB NASA, Moffet Fld, CA MILNET 
10.0202 i> ROCHESTER UNIV of Rochester, NY ARPANET 
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USER’S GUIDE TO THE DDN/TOPS-20 TUTORIAL 


This User’s Guide to the Defense Data Network/TOPS-20 
Interactive Tutorial presupposes that the user has’ worked 
or is working through the DDNTUT.FOR program. Access to the 
program is gained by entering the follwoing at the “"@" 


prompt: 


EXECUTE <DECAIDS> DDNTUT.FOR 


Compilation of the program, if required, will occur 
automatically. Once the program has been loaded by the 
system, you will see the opening line “WELCOME TO THE DDN”, 
and you are off and running. 

This guide is intended to serve strictly as a reference 
manual for users of the tutorial. It provides’) short 
descriptions of the Executive Level commands and the nine 
system level programs the user encounters while working 
through the tutorial. 

Examples are not provided herein, as that is the 
purpose of the tutorial itself. Should the user remain 
uncertain regarding the correct procedure to follow in util- 
izing a system program, he/she is encouraged to refer to the 


tutorial. 
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At the end of this Guide is a recap of the “Where To Go 
From Here” portion of the tutorial. Users who wish to in- 
crease their knowledge of the TOPS-20 operating system 
and/or the Defense Data Network are urged to utilize these 
sources. 

NOTE: Filename, Filetype, and Generation Number are abbre- 


viated: FN.FT.NU respectively throughout this User’s Guide 
and the tutorial. 


L7 


syst 
syst 


prom 


CURS 


KEY 


ESC 


CTRL 


*“C 
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EXECUTIVE LEVEL COMMANDS 


The Executive Level (EXEC) of the TOPS-20 operating 


em is entered after you log on or after execution of 
em routines, and is noted by the display of the “@" 
pt. Commands here fall into three categories: 


1. Cursor Commands 
2. Directory-Related Commands 
3. System-Related Commands 


Notes: 


1. The “ * “ character refers to the control (CTRL) key. 
2. ESC refers to the escape key. 

3. <CR> refers to the carriage return or enter key. 

4. DEL refers to the delete dey. 


OR COMMANDS 


USE CS) 


Completes a command or Filename once you have 
typed enough for the system to recognize your 
intentions are. 


Used with another key to enter a command; must be 
held down while the other key is typed. 


Used to abort a partially completed command or to 
stop printing something you don’t want to see. 
to see. Will return you to the EXEC level if you 
are not already there. 


Used to show that the system is still running. 


Freezes typeout on the screen and acts aS a no- 
scroll key. 


Resumes typeout on screen after use of “T 
command. 
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ig Prompt for the EXEC level. Must be typed twice to 
enter it into text while in XED and most other 
programs if accessing your host through a TAC. 


DEL Deletes characters from right to left. 

*O Stops terminal output. 

“W Deletes words from right to left. 

aie. End-of-file. Used whenever you have finished en- 


tering data, text, messages, etc. 
<CR> Carriage return. Confirms a given command and per- 
mits execution of the command. 
DIRECTORY-RELATED COMMANDS 
A compete listing of these commands can be seen by 
typing “?”" after the "“@" prompt. The following is a listing 


of those most often used: 


COMMAND USE (5S) 

DIRECTORY Or “DIR<CR>"; lists the names of all your 
files. 

TYPE Types the contents of a file. 

APPEND Appends one file to the end of another. 

ARCHIVE Places a file in off-line storage. 

DELETE Deletes a file from your directory. 

UNDELETE Restores DELETEd files back to your direc- 


tory, unless you have expunged or logged off 
or sometimes if the system crashes. 


EXPUNGE Permanently erases all DELETEd files. 

SET DIR PASS Allows you to change your password. 

PROTECTION A six digit number which restricts access to 
any file in your directory. 775200 is the 


default. For more info, type HELP PROTEC- 
TION at the EXEC level. 
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SYSTEM-RELATED COMMANDS 


COMMAND 


SYSTAT 


FINGER 


ATTACH 


TER NO RAISE 


INFO MAIL 


INFO DISK 


TALK TO < 


BREAK 


CONTINUE 


REFUSE 


RECEIVE 


USECS) 


Used to see everyone on a host. To see if a 
particular user is up on the host, type SY 
<USERNAME> <CR>. The system will respond with 
a job number, etc., if the user is on the 
host or with just a "“G" if the user is not up. 


Used to find out information about a specific 
user and is invoked by typing FINGER <USER- 
NAME> <CR> at the EXEC prompt. 


Attaches a job to your current job. 


Makes your terminal accept both upper and 
lower case letters. 


Asks system check for new messages. 


Lists information about your current page 
allocation. 


Creates a communication link with another 
specified user, if on-line. If you are LINKed 
to, remember to type a “C to place a hold on 
whatever it is you were doing before respond- 
ing to the LINK. Use the symbol ; or ! to 
preface each line of type. 


Either individual LINKed can type this to 
terminate the link. 


Restores a user, following a LINK, to the 
place where a “C was typed. 


Type this in your LOGIN.CMD file if you do 
not wish to be interrupted by anyone LINKing 
to you. 


Type this in your LOGIN.CMD file if you don’t 


mind being interrupted (receive is also the 
default). 
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MSG 


MSG iS a program which allows the user to create, send, 
file and read messages, referred to also as mail. A listing 
below provides the commands which may be used within MSG. 
They may also be seen from within MSG by typing a "?" after 
the MSG prompt, which appears as “<-". To enter MSG, type 


MSG at the EXEC prompt. 


MSG COMMAND LEVEL COMMANDS 
COMMAND USECS) 


Answer a message 

Back up to previous message (also 

.Current message 

Delete a message 

Exit and update message file 

Forward a message 

Go to mesage number < > 

Headers CHA: Headers ALL) 

Inclusion of length of header 

Jump into lower fork 

Koncise - provide shorter prompting 

List of messages 

Move message into a file (deletes it as a message) 

Next message number 

Overwrite old file 

Put a message into a file (does not delete it as a 
message) 

Quit, return to EXEC level without update of MSG 
file 

Read in a file (specified) 

Send a message 

Undelete a message 

Verbose - provides more prompting 

Write file sorted by message arrival time 

XED - enter XED 

zap profile 

Marks message as examined 

Marks message as not examined 


n~ 


or ~H) 


VOSZRZTAGHLODNMOAD > 


Y*NKMEC CY D D 


Pail 


: Display current time and date 


Hi Type with the command character for its descrip- 
tion, alone for summary of commands available 

: Comment 

“N Abort message 

fed Message completion 


COMMANDS WITHIN MESSAGE SEQUENCE 


If you ask the system to type out a message (T - type) 
or output headers (H - headers), etc., the system will ask 
you for the message sequence. Usually, all you desire is 


one message, so you just type that message number followed 
by a carriage return. If you desire to have several messages 


printed you may use the following: 


ARG ss Go} Prints messages 10 through 15 

>15 Prints all message numbers greater than 15 
6:3 Prints, in reverse order, messges 6 through 3 
24,7 Prints message 24, then message 7 


Other ways of responding to the message sequence request 


from the system are: 


ESC Current message 

ot Last sequence specified 

A All message or headers 

D Deleted messages or headers (prior to EX- 


PUNGE or EXIT) 
Examined messages 
String search of headers 
Inverse order 
Last message sequence 
Not examined messages 
Old messages/headers 
Recent messages only 
String search of subject 
Undeleted messages 


GQUuUWDWOaZzrH]M 
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XED 


is a text editor; specifically a line editor. A ok 


allows you to both create and edit text, one line at a time. 


Entry 


into XED is by typing XED at the EXEC prompt. Some 


helpful definitions are: 


Text Buffer 
Print Buffer - Area where KILLed material iss sent 
Command Level - Level you are at when entering’ XED, 


Line Number 


Your current working space 


distinguished by the ":" prompt 

Assigned by XED to each line in your text 
buffer; for your reference only, not 
stored in the file 


XED COMMAND LEVEL COMMANDS 


COMMAND 


1M Q 0 p> 


'U 


Nx ECAWNAO 


USEC(S) 


APPEND, used to enter text after the current line 

BACK UP, used to create a back up file 

CHANGE, to modify current line(s) 

EXIT, to leave XED, after a file save 

FIND, to locate a specific letter, word or phrase in 
text 

GROUP, to join current line with following line 

INSERT, used to enter text before current line 

JAM, puts contents of print buffer after current 
line 

KILL, places current or specified line(s) into print 
buffer 

LIST, Outputs entire text buffer without line num- 
bers 

PRINT BUFFER or DUMP, prints contents of print 
buffer 

QUIT, leaves XED prior to file save 

READ, puts into XED the contents of specified file 

SEARCH, like FIND, but locates all occurrences 

TYPES prints current line 

VIEW, prints current and following 15 lines 

WRITE, prints contents of text buffer to a file 

EXCHANGE, used to search for and replace text 

ZAP, puts your entire file into the print buffer 
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a3 SWITCH DUMP, swaps contents of the print and text 
buffers 
: TYPE CONTEXT, types current line and five lines 
before and after 
TYPE, types current line 
SENDMSG, uses current text buffer as body of a 


nn 


message 
Ss LAST LINE, places you at end of file 
z Displays available commands 
ar | TYPEs the next line 
“Q ABORTs partially completed commands 


FORMAT, right justifies a paragraph 


COMMANDS WITHIN INSERT AND APPEND 


COMMAND USE¢S) 

DEL KEY Deletes letter to left of cursor 

“R RETYPES current line, leaving cursor at end 
ap, é KILLs LINE to left of cursor 

“W DELETEs WORD to left of cursor 

Z RETURNS you to the command level 
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FILE TRANSFER PROTOCOL (FTP) 


FTP is a program employed to transfer files around the 
net. This can be done from within a host or between hosts. 
It does necessitate that you have access to a directory on 
each host...the directory which has the material you desire 
and the directory to which you wish the material 


transferred. The following prompts are unique to FTP: 


FTP> FTP command level prompt 
USC-ISIE.ARPA> Sample foreign host command level 
prompt 


FTP COMMAND LEVEL COMMANDS 


COMMAND USE(S) 
FTP Invokes the FTP protocol 
CONNECT Connects you from the local host you are 


logged onto, to the foreign host you are at- 
tempting to reach 


SEND Sends a file from your local directory to the 
foreign directory 

GET Retrieves a file from the foreign directory to 
your local directory 

BYE Disconnects you from the foreign host 

DISCONNECT Same as BYE 

QUIT Leaves FTP 

EXIT Same as QUIT 


25 


TELNET ‘TN)D 

TN is a program which allows a user on one host to 
access another host. It actually appears as though you are 
logged into the foreign host directly from a TAC rather than 
through your local host. The program also has the advantage 
of making your control characters do what you expect them to 
do, even if the control characters on the foreign host are 
different. 

Using TN is actually quite simple. All you need do is 
type "TN", followed by the foreign host name, after the EXEC 
prompt. If a pathway to the foreign host is available and 
the host is up and running, you will connect to the foreign 
host ready to log into a directory. The standard “@" EXEC 
prompt will be displayed. Everything from then on is’ the 
same as logging into your own directory. When you are fin- 
ished, simply log out of the foreign directory, and you’re 
back in your own directory at your local host. 

Note: If you access the foreign host by using the TN 
command, and then enter <HOSTNAME> <CR> at the TN> prompt, 
when you LOGOut of the foreign directory, you will be 
returned to the TN> prompt. Simply type EXIT <CR> and you’1ll 
be back home. 

One additional idiosyncracy of TN is, since all control 
characters are meant to behave on the foreign host as’ they 


would on the local host, you cannot use "““C" to return to 
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your own EXEC level. There is a way around this, however. 
You simply type “**C". The proper method of quitting TN, 


however, is to LOGOut of the foreign host. 
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PHOTO 


PHOTO is a program which allows you to record, or save, 
portions of a session on the net. It is invoked by typing 
“PHOTO <CR>* at the EXEC prompt. You will then be asked to 
Supply a filename to which the PHOTO session is to be re- 
corded. PHOTO will record what you type, as well as’ the 
responses from the computer. While you are in PHOTO, 
everything will work as normal. The control characters 
remain as before, and you still get the same prompts. What 
this means is, you cannot use *“C to exit from PHOTO. The 
normal means of exiting PHOTO is to type the command “POP 
<CR>" at any EXEC prompt. 

There is one control character peculiar to PHOTO: pre 
is used to suspend the PHOTO session. When you are ready to 
continue recording, simply input another “Y. 

If you check your directory after POPing out of PHOTO, 
you will see the new file. You can use the TYPE command or 
enter XED, READ in the file, and view it. While you are in 
XED, you can also edit the file. 

While you are in PHOTO, the system beeps at you peri- 
odically to remind you that you are recording the session. 
The periodicity of the beeps is set at 30 seconds by default; 
you may change this, or eliminate them entirely through use 


of the following command: 
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G@PHOTO/INTERVAL:0O Cancels the beeps 
GPHOTO/INTERVAL: 60 Gives beeps every 60 seconds, or 
whatever interval you prefer 


And finally, a reminder that you must POP out of PHOTO 


before the system will allow you to log out. 
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REMIND 


REMIND is a program which allows you to create remind- 
ers for yourself or others to be sent by the system at a 
later time, as specified by you. You may schedule a remind- 
er to be sent only once, or as frequently as you like. You 
may also select whether the reminder will be MAILed 
(delivered via normal message service), SENT ‘delivered 
directly to addressee’s screen, however, if the addressee is 
not logged on, the message is lost forever) or by BOTH 
methods (recommended). 

To use the REMIND program, type “REMIND <CR>" at the 
EXEC prompt. Use the CREATE command to initiate a reminder 
message. A variety of prompts will be provided such as who 
the message is to be sent to, when, how often, how sent, 
etc. All of these prompts are fairly self-explanatory, but 
if you get stuck, simply type a question mark. 

REMIND is the fastest way to send a message, as it 
doesn’t force you to read the headers of any unlooked-at 


messages, etc., as with the MSG program. 


REMIND COMMAND LEVEL COMMANDS 


COMMAND USEC(S) 

CREATE Used to CREATE a message 

DAYTIME Prints the exact date and EST time 
DELETE DELETES remind messages 

EXIT EXITs out of REMIND 
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HEADERS 
HELP 


MODIFY 


QUIT 
SURVEY 
TYPE 
UNDELETE 


Lists subject line of all your REMIND messages 

Gives info about all options; ocr a specific 
command 

Changes the parameters (ex: time msg to be 
sent) 

Same as EXIT 

Lists all recent remind messages you have sent 

TYPES a remind message already looked at 

UNDELETEsS remind messages 
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INQUIR 


INQUIR allows you to enter information into a file 
which can be read by yourself or others using the "FINGER / 
VERBOSE <USERNAME> command. INQUIRE is entered by typing 
“INQUIR <CR>" after the EXEC prompt, following which you 
type the command "MODIFY <USERNAME> <CR>" where username is 
your own directory name. The system now will be at its 
entry level, and will either respond with a >> prompt, if 
data is already in your file, or with questions if there in 
no information in the file or ina specific field in the 
file. 

While you are building or modifying an INQUIR file, the 
normal XED editing commands CDEL key, “R, “W, etc.) may be 
used. “Z will signal the system that you have completed the 
file. The REMARKS section of the file allows you to leave 
short messages for people INQUIRing about you. 

When you are at a >> prompt, there are a few commands 


available which can be useful: 


COMMAND USE CS) 

ALL Allows you to review/change the entire data 
base. 

<FIELD NAME> Allows you to change a specific field 

SHOW Shows you the entire data base as it would 
appear with a FINGER/VERBOSE command 

EX Exits to the > prompt from the >>, or to @ from >. 


CP 


FINGER 


FINGER is a program to help locate and identify users 
on a system. It is called from the EXEC Level by typing 
“FINGER <CR>". Its main features are personal name and line 
location output. If you leave a message, called a “plan”, 
in a FINGER.PLAN file, it will print out when someone 
FINGERS you and you are not logged on. This file is a free- 
form text file created in XED, and the file protection 
(SET PROTECTION command) should be at least 775252 to allow 
all other users to read it. 

Calling sequences for FINGER include: 
ily GFINGER <USERNAME> 

Prints whatever message user has in their .PLAN 
file; tells you if user is logged on. 
Ze @FINGER / <SWITCHES> <USERNAME> OR 
GFINGER <USERNAME> / <SWITCHES> 
If username is blank, all users at a switch will be 
summarized alphabetically. If username specified, 
info about that particular user on that switch is 


printed in more detailed fashion. 


Ss. OTHER SEQUENCES: 


/DETACHED Displays detached jobs 
/DIAL-IN Displays dial-in jobs only 
/HELP Show this message 


/NO-DETACHED Suppress display of detached jobs 
/NO-OPERATOR Suppress display of operator jobs 


/OPERATOR Display operator jobs only 

/TERSE Output line job status only 

/VERBOSE Output plan and mail info, plus INQUIRE 
database, not including account. <USER- 
NAME> must be specified. 

/WHOIS Useful for remote users; displays’ site 


dependent info about a specific user. 
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ELECTRONIC MAIL HOST (EMH) 


An Electronic Mail Host, or EMH, is a special kind of 
host. The only capability an EMH has is sending and receiv- 
ing messages. To use an EMH, you must be authorized access, 
and have a directory name and one or two passwords, as 
required. The passwords change frequently to prevent idle 
chitchat, user abuse, and large, inexplicable bills. 

To access an EMH host, use the TN command. When the 
connection is established, log on and give passwords just as 
if you were logging into any directory. There are a number 
of command options in EMH useful in creating and sending 
messages, reading, deleting, and filing other messages, etc. 
They are largely self-explanatory, and bear a strong resem- 
blance to the commands previously discussed for MSG, REMIND, 
and other programs found on the system. Remember to use a ? 
if you get stuck. 

The following are some unique EMH commands: 

COMMAND USE CS) 
COMPOSE Used to create a message. 
REPLY Used to reply to a message. 


» <CR> Used to end a message when entered alone on a 
separate line. 
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EMACS 


The EMACS text editor portion of the tutorial has not 
yet been written. 


GRAPH 


The GRAPH or graphics portion of the tutorial has not 
yet been written. 


CS) 


WHERE TO GO FROM HERE 


The following materials serve as excellent sources of 
information on the TOPS-20 operating systems and sub- 


systems, including: 


HELP, ?, ACTION, DOCUMENTATION, FTP, TN, FINGER, MM, HERMES, 


XED, EMACS, REMIND, PHOTO, WHOIS, ARCHIVE AND SCRIBE. 


USER’S GUIDE TO TOPS-20 

WAYNE TURNER 

SEPT 1983 & APRIL 1984 

USC INFORMATION SCIENCE INSTITUTE 
4676 ADMIRALTY WAY 

MARINA DEL REY, CALIFORNIA 90291 
(Zi StS 2 2-1 Saree hie oS 

ACTION @ USC-ISI.ARPA 


TOPS-20, 

CHLOE SOMMERS HOLG 

AUGUST 1983 

USC INFORMATION SCIENCE INSTITUTE 
4676 ADMIRALTY WAY 

MARINA DEL REY, CA 90291 

(21 30y 622-ol ll (Execs 

ACTION @ USC-ISI.ARPA 


PROFESSOR GARY POOCK 

CODE SSPK 

NAVAL POSTGRADUATE SCHOOL 
MONTEREY, CA 93943 
POOCK@GUSC-ISTI.ARPA 
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The following are informative sources on the creation 
of the Defense Data Network, where it’s at today and where 


it’s going: 


DDN NEW USER GUIDE (NIC 50001) 
MARCH 1985 

DDN NETWORK INFORMATION CENTER 
DDN PROGRAM MANAGEMENT OFFICE 
DEFENSE COMMUNICATION AGENCY 
WASHINGTON, D.C. 

(703) 285-5025 


Useful addresses: 


BOLT, BERANEK AND NEWMAN INC. 
30 MOULTON STREET 
CAMBRIDGE, MASSACHUSETTS 02238 


COMPUTING ANALYSIS CORPORATION 
1400 WILSON BLVD, SUITE 1101 
ARLINGTON, VA 22209 


DIGITAL EQUIPMENT CORPORATION 
PO BOX CS-2008 
NASUA, NEW HAMPHSHIRE 03061 


DOCUMENT DISTRIBUTION, 

USC INFORMATION SCIENCES INSTITUTE 
4676 ADMIRALTY WAY, SUITE 1100 
MARIA DEL REY, CALIFORNIA 90291 


MASSACHUSETTS INSTITUTE OF TECHNOLOGY 
ARTIFICIAL INTELLIGENCE LABORATORY 
ATTN: PUBLICATIONS 

945 TECHNOLOGY SQUARE 

CAMBRIDGE, MASSACHUSETTS 02139 


UNILOGIC, LTD 
160 N. CRAIG 
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nanaannnaanaananaanaaananananananaanaaaaaaaaagaaaangaaangaadngnagnagaaaagaaaanaaa 


AN INTERACTIVE TUTORIAL FOR THE DEFENSE DATA NETWORK 


LCDR M. K. H. HERKERT, USN = 
LT S. L. SMITH-MOREAU, USN = 


US NAVAL POSTGRADUATE SCHOOL, MONTEREY, CALIFORNIA 


. ss ss os Uh Um Um Um hm hr re mr me le le mr me hl le mr le lr ee le lr le me lr mc lr hm hm me hr le el lr le le le lr el Oe ee ee eee ee Le 
= ee ee i eee ae aie ae ie ae ee ae ea aa ee ei ee ee ei i ee Oe ee oe oe oe Se 


THIS TUTORIAL IS DESIGNED TO INTRODUCE THE NEW USER TO THE 
COMMANDS AND SYSTEMS IN USE ON THE TOPS-20 VERSION OF THE 
DEFENSE DATA NETWORK (DDN). 


= THIS PROGRAM IS WRITTEN IN FORTRAN AND WILL PERFORM EQUALLY 
= WELL ON EITHER A FULL SCREEN VDT OR A SPOOL PAPER TERMINAL. 


QUESTIONS ON THIS PROGRAM AS WELL AS REQUESTS FOR EXTERNAL 
DOCUMENTATION AND MAINTENANCE SHOULD BE MADE TO PROFESSOR 
GARY POOCK ‘¢POOCKGISI.ARPA). 


— ee we we wwe wwe ew wo oe oe ww ew eo ow om om oe oe oo om om om oe oo om om oe oo om oe we oe we i oe oe oe oe me we oe oe ww i i ie ee 
ee Ee ee ee ee ee ee ee re 


= ee ST ALA) On Or PROGRAM === 2==222ss2s25s2525222525=2== 
THE FOLLOWING ACTIONS ARE REQUIRED TO INSTALL THIS PROGRAM: 


= 1. PLACE COPY OF “DDNTUT.FOR®” IN THE DIRECTORY FROM WHICH IT 
= t55,70 BE RUN- 

= 2. EXECUTE THE PROGRAM (EXECUTE DDNTUT.FOR) UNTIL YOU GET TO 
= TO THE INITIAL INTRODUCTION. THIS COMPILES THE PROGRAM; 
= CREATES A “(DDNTUT RELY FILe. 


3. SET PROTECTION AS FOLLOWS: 


DIRECECTORY 777740 
DDNTUT.FOR 777700 
DDNFOR.REL LET hs a 


THE PROGRAM CAN NOW BE RUN FROM ANY ACCOUNT ON THE HOST BY 
THE USER ENTERING: 


= “EXECUTE <DIRECTORY WHERE INSTALLED> DDNTUT.FOR” 


INTEGER INPUT 
DIMENSION DEM1(¢1) 


Oa n 


> 
16 


N0Q00 MAAD Waand £BOAQAO WOQAO NOQO POO0O 


Q0 


DUM=0 

seee PROVIDE INITIAL INTRODUCTION 

TYPE 1600 

TYPE 100 

READ(05,130,ERR=15) DEM1 

IF C(DEM1¢1).EQ.’Q’ .OR.DEM1(1) .EQ.°q’)GO TO S20 


TYPE 110 
RYePE 120 


seee PROVIDE FOR SELECTION OF DESIRED AREA OF INSTRUCTION 
READ(OS,*,ERR=16) INPUT 

IFCINPUT.LT.1.OR.INPUT.GT.16)GO TO 16 

IF CINPUT.EQ.16)GO TO S00 

GO T0(1,2,3,4,5,6,7,8,9,10,11,12,13,14,17) INPUT 

GO TO 15 

eeene SUBROUTINE FOR INTRODUCTION TO HELP, ?, AND ACTION 


CALL INTROCDUM) 
GO TO 15 


eeee SUBROUTINE FOR BASIC EXECUTIVE LEVEL COMMANDS 


CALL ELC1(DUM) 
GO TO 15 


eeee SUBROUTINE FOR ADVANCED EXECUTIVE LEVEL COMMANDS 


CALL ELC2(DUM) 
GO TO 15 


eseee SUBROUTINE FOR INTRODUCTION TO MSG 


CALL AMSG CDUM) 
GO TO 15 


eeee SUBROUTINE FOR INTRODUCTION TO XED 


CALL AXEDCDUM) 
GO TO 15 


eevee SUBROUTINE FOR INTRODUCTION TO FTP 


CALL AFTP(DUM) 
GO TO 15 


eeee SUBROUTINE FOR INTRODUCTION TO TN 


CALL ATN(DUM) 
GO TO is 


seer SUBROUTINE FOR INTRODUCTION TO PHOTO 


on 


CALL APHOTOCDUM) 
GOTO ris 


eeee SUBROUTINE FOR INTRODUCTION TO REMIND 


wanaan 


CALL ARMND(DUM) 
Go) TO) iS 


eeee SUBROUTINE FOR INTRODUCTION TO INQUIRE 


ee [GLO IS: 


Oo 


CALL AINOQR(CDUM) 
GO TO 15 


eeee SUBROUTINE FOR INTRODUCTION TO FINGER 


RPaAaAaQAN 


a 


CALL AFNGRCDUM) 
GO TO is 


eeee SUBROUTINE FOR INTRODUCTION TO ELECTRONIC MAIL HOSTS (EMH) 


RPOaAN 


N) 


CALL AEMH (DUM) 
GOTO 15 


eeee SUBROUTINE FOR INTRODUCTION TO EMACS -**CURRENTLY EMPTY««#- 


RPOaO0aAA 


W 


CALL AEMACS(DUM) 
GO TO 15 


eeeee SUBROUTINE FOR INTRODUCTION TO GRAPH -**CURRENTLY EMPTY#*#- 


RPOaAN 
fh 


CALL AGRAPH (DUM) 
GOnTOAITS 


#eee SUBROUTINE FOR BIBLIOGRAPHY 


RPAAN 


N 


CALL BILBOCDUM) 
GO TO 15 


eeee SIGN-OFF ROUTINE 


wnaand 
Oo 
Oo 


TYPE 1240 
iYePE 1370 
READ(05,130,ERR=S510) DEM1 
STOP 
520 PYRE 1250 
TYPE 1370 
READ(0O5,130,ERR=S30) DEM1 
30 STOP 


ul 
» 
Oo 


5) 
Ss 
Cc 
5 HHH Heenan eeeeeeneMATN PROGRAM FORMATS e#e# ee ew twee 
cS 
Cc aeee INTRODUCTION 

Ss 


4 


100 


POA 


FORMAT(//,’ WELCOME TO THE DEFENSE DATA NETWORK 
* (DDN 4/7 5 - THE FOLLOWING TUTORIAL IS DESIGNED TO ACQUAINT YOU 
*WITH VARIOUS FEATURES OF’,/,’ THE NETWORK, PROVIDING INSTRUCTIONS 
#®AND ALLOWING YOU TO GAIN SOME DEGREE OF’,/,’ PROFICIENCY. THE TUT 
#®ORIAL IS INTERACTIVE.’ ,//,’ ADDITIONAL SOURCES OF INFORMATION ON T 
8HE DDN ARE LISTED IN THE WHERE TO GO’,/,’ NEXT SECTION OF THIS TUT 
*ORIALL.’,//,°’ ENTER A “q* TO QUIT, ANY OTHER CHARACTER TO CONTINUE 
eos * , 3) 


eee2e SELECTION OF AREA OF INSTRUCTION 


FORMAT ¢ ” TO BEGIN THIS SESSION, SELECT ONE OF THE FOLLOWING TOP 
#ICS:’,//, 

a? 1. INTRODUCTION (HELP,?,ACTION)’,/, 

a? 2. TOPS-20 EXECUTIVE LEVEL COMMANDS ‘BASIC)’,/, 

a? 3. TOPS-20 EXECUTIVE LEVEL COMMANDS ‘ADVANCED)’,/, 
2? 4. MESSAGE PREPARATION, SENDING, READING (MSG)’,/, 
a” S- LINE EDITOR (XED)’,/, 

a? 6. FILE TRANSFERRING (FTP)’,/, 

a? 7. CONNECTING TO ANOTHER COMPUTER (TN)’,/, 

te 8. COPYING YOUR WORK (PHOTO)’,/, 

a? 9. REMINDERS TO YOURSELF/OTHERS (REMIND)’,/, 


a4 10. FINDING OUT ABOUT c‘INQUIR)’,/, 

a” 11. IDENTIFYING YOURSELF /OTHERS (FINGER)’,/, 
a? 12. ELECTRONIC MAIL HOSTS (EMH)’,/, 

a” 13. SCREEN EDITOR’ ,/, 

a” i¢@. GRAPHICS’ ,/, 

a? 15. WHERE TO GO FROM HERE’,/, 

me 16. QUIT’,//) 


FORMAT ¢ ’” ENTER THE NUMBER CORRESPONDING TO YOUR SELECTION, FOLL 
#OWED BY A <CR>: ’,5S) 


FORMAT (1A1) 

FORMAT(’ This terminates the TOPS-20 system tutorial.’,//) 
FORMAT(’ Sorry to see you quit so soon.’,//) 

FORMAT’ Enter any key: ’%,5S) 

FORMAT (////) 

END 


t{~ 
~ 


aa 


SUBROUTINE INTROCDUM) 


SSessseseeresssseu2zzz2z2zezINTRODUCTION SUBROUTINE®&=2f2sest22222e28282222=2= 
PROVIDES INTRODUCTION TO HELP, ? AND ACTION - 


ee ee ee ee ee ee ee ee ee ee se ee ee ee ee ee ee ee ee ee ee ee ee ee 


qaaqnQqgngn 
t 


DIMENSION INPUT(1), SLCTN(2) 
TYPE 1600 


eeree INTRODUCTION TO SYSTEM HELP AIDS 


aqaaga 


TYPE 100 

TYPE 200 

READ(05,1400,ERR=10) INPUT 

IF CINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’)GO TO S20 


ereene INTRODUCTION TO HELP AND ? 


PAA 


(@) TYPE 105 
TYPE 200 
READ(0S,1400,ERR=13) INPUT 
IF CINPUT(1).EQ.’°Q’ .OR. INPUT (1) .EQ.’q’)GO TO S20 


Cc 
Cc reer INTRODUCTION TO DOCUMENTATION AND ACTION 
Cc 
al 


3 TYPE 110 
TYPE 200 
READ(05,1400,ERR=15) INPUT 
IF CINPUT(1).EQ.’Q’.OR.INPUT(1).EQ.’%q’)GO TO 520 


C 
C rene DEMONSTRATION 
Cc 
A 


ra ieee +120 

READ(0S,1410,ERR=20) SLCTN 
Te CSLETNC1).EO.”’OQ”* .OR.SLCIN(C1).EQ.*q’>GO TO S20 
IF (CSLCTN(1).EQ.’HELP ’°.AND.SLCTN(2).EQ. ’ ‘OR eOoeCING 1) -EG. 
*’help ’.AND.SLCTN(2) .EQ. ’” ‘GO-TO. so 
IF CSLCTN(1).EQ.°?7’)GO TO 40 
IF (CSLCTN(1)>.EQ.’HELP ’.AND.SLCTN(2) .EQ.’ACTIO’.OR.SLCTN(1).EQ. “hel 
ep ’°.AND.SLCTN(2).EQ.’actio’ go to SO 
WecSLCING!) .EG@s “HELP *.AND.SLCIN(C2Z) EQ.” SYSTE” .OR.SLCTNC1>. EG. “hel 
ep ’°.AND.SLCTN(2).EQ.’syste’)GO TO 60 
tmeCSLEINC1) -EOQ.*QUIT’ -OR.SLCTN(1) -EQ.* quit’ )GO TO 300 

20 iYPE TSS 
GO TO 15 

30 TYPE 140 
GOTO 15 

40 TYPE 150 
GO TO 15 

20 TYPE 160 
GO TO 15 

60 TYPE 170 
SEn1O lS 
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POAQQQQ0 UW 


oO 
oO 


POO 


POONO 


eeee SIGN-OFF ROUTINE 


TYPE 1240 

TYPE 1370 
READ(05,1400,ERR=510) INPUT 
RETURN 

TYPE 1250 

TYPE 1370 

READ (05,1400,ERR=530) INPUT 
RETURN 


seeeeanwwwwweeFORMATS FOR INTRODUCTION SUBROUTINE@*s«ssennnnnnnnne 
ewee INTRODUCTION 


FORMAT (12X,’°’HELP,ACTION,? AND DOCUMENTATION’ ,//, 

* ’ The DDN network, or more specifically the Tops-20 systen, 
1 allows the user to’,/,’ receive help at almost all levels. The f 
2Zollowing is an explanation and’,/,’ demonstration of commands to r 
Seceive help at the Executive Level, but the first’,/,’ two may be 

4used at almost any time.’,//, 

S’ Notes:’,//, 

oo i. You are in the executive level when you first log on or a 
*fter you have’,/, 

7’ finished with any of the system routines. You will know that yo 
*u ere in the’,/, 

8’ Executive Level because the "O°" prompt will be displayed by the 

*system.’,// 


= 2. Commands may be entered using either upper or lower case 
* letters.’,//, 
Be 3. Commands below are presented within quotes. This is for 


Zemphasis only.’,/,’ The quotes are not entered.’,//) 
seen HELP 


FORMAT(’ The HELP Command:’,//, 

i’ This command, by itself, will give you guidance on how to get mo 
Z2re in depth’,/,’ knowledge on a particular subject. It is invoked 
3 by typing “HELP” after the ’,/,’ "“@" prompt, followed by a carria 
“ge return.’,//, 

4° The ? command:’,//,’ This command, when invoked after the "@" pr 
Sompt, or almost anywhere else,’,/,’ will give you a menu of approp 
6riate commands from which to select.’,//, 

7’ The HELP NAME command:’,//,’ This command provides specific info 
8rmation on the subject named. It is invoked’,/,’ by typing “HELP 
9 NAME" followed by a carriage return after the "@" prompt.’,/,’ "N 
*AME is the subject on which you desire further information.’ ,//) 


sene DOCUMENTATION & ACTION 
FORMAT(’ DOCUMENTATION: ’,//,’ DOCUMENTATION provides additional in 


iformation about specific subjects. To see’,/,’ the available subj 
z2ects, type "DIR <DOCUMENTATION>«.#.«* after the "G" prompt,’,/,’ ¢£ 
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PQQ 


PAA 


30Ollowed by a carriage return. To see a specific documentation fil 
4e, enter’,/,’ “TYPE <DOCUMENTATION>FILENAME.FILETYPE”™, followed by 
3S a carriage return; FILENAME’,/,’ and FILETYPE are those as shown 
6in the directory.’,//, 

7’ ACTION:’,//,’ Having exhausted the above and still not satisfied 
8, or if you have comments’,/,’ about the system, etc. you can send 
9 a message to ACTION. The procedure for’,/,’ sending a message is 
* covered in the MSG section of this tutorial.’,//) 


eeee DEMONSTRATION SELECTION 


FORMAT(’ To see a demonstration of the above commands, type one of 
1 the following commands’,/,’ after the "“@" prompt, followed by ac 
2arriage return.’,//,’ HELP’ ,//,’ 2 See HELP ACTION’,//, 
3. Oui .3/ 7, “62,5? 


FORMAT(//,* YOU HAVE NOT SELECTED AN APPROPRIATE CHOICE’ ,//) 


aeaene HE] D 


FORMATC’ HELP command ====’,//,’ The HELP command prints helpful d 
locumentation on various system’,/,’ features. The "@" is printed 
2by the system. You type the rest.’,/,’ of the line followed by ca 
srriage return.’ ,//, ° @HELP NAME’ ,//,’ will look for, and print ou 
4t information about the system feature’,/,’ named in “NAME”. If t 
Shis i8 your first time using this system’,/,’ please type: HELP SY 
6STEM-MESSAGES’ ,//,’ @HELP ?’,//,’ will give a list of features fo 
7r which HELP is available and’,/,’ retype GHELP to wait for any ad 
8ditional input.’,//,’ To see this text again type HELP followed by 
9 a carriage return.’,//,’ CEnd of HELP.HLP]’,//) 


eevee AVAILABLE WITH HELP 


FORMAT(C’ Command, one of the following:’,/,’ ACCESS’,/,’ ADVISE’,/ 
yp APPEND | /, ARCHIVE’ 77, ASSIGN’ ,/,° ATTACH’, 7/7,” BWCKSPACE’ ,/7,* 
Zee) 7 wo DANK”, 7, ° BREAK’, /,° BUILD’ ,~7/, “®CANCEL’. 7," ‘CD’ ,7,° CL 
Sase 7, sCOMPILE’,7,° CONNECT’ ,7,° CONTINUE’ ,/,° COPY”,/,° CREATE 
ape BPC ReEE 7. SCOBVE”,/," DAYTIME” /,° DDT” ,/7,° DEASSIGN’ ,/.” | DEBU 
Some >  CECLARE 57, DEFINE’ ,7,° DELETE’ ,.7,° DEPOSIT’,/,-~— DETACH’ 5/7 
SpemeeDIRECTORY° ,7,° DISABLE’ ,7,° DISCARD’,/,”* DISMOUNT’,/,* DO’ ,7/,° 
Beene) 3/7, ee Dlr ,/7,° ) ENABLE’ ,7,° END-ACCESS’ ,/,° ~800"°,/,  ERUN’,7, 7 
SEK OMUNE G7, EXECUTE’ ,/,°* EXPUNGE’,7,”° FDIRECTORY’,/,° FINGER’ ,/, 
BeeeuORK 7. PREEZE°,/,° GET’>/,° HELP’ 7,° IDDT”,/,° INFORMATION’, 
Wetec. 4 KRJOR ,/, oeKNIC’ ,7, »Lisl”,/,° LOAD’ ,/,* LOGIN’ ,/,” 
MeGQGaul “7.5 MALI | /,° MAE” ,/,° MERGE” ,7,° MODIFY” ,/,° MOUNT’ ,/,° N 
mares. SING 4/4" ORIGINAL ,/,° PLOT*.,/,°5 POP’ ,7,° PRINT*’,7,° PUNCH 
Sage eo Push ,/,- GDIRECTORY’,/,° K°,/,° RDIRECTORY’,/,° RECEIVE’,/, 
WeeRCENTEK |/,° KEP USE”,/,° —REMARK”’ ,/,° RENAME’ ,7,* REPLACE’;/,° RE 
Jomo ere thi eVE*,/,” (REWIND 5/5 RUN’ ,/,° SAVE’ ,/,° SEI’°,/,”* OKI 
Seige START 447. SUBMIT’ 77, SYSTAT’;/,°. TAKE’ ,/,° TALK’,/.° TDIR 
MECTORY’5/,° TERMINAL’ ,/,° TRANSLATE’,7,° TYPE” ,7,” UNATTACH’,/,*% U 
S8NDECLARE’,/,’ UNDELETE’,/,’ UNKEEP’,/,’ UNLOAD’,/,’ UNMAP’,/,’ VDI 
PRECTORY’;7,° WDIRECTORY’,7,° XPRESS’,/7,° or kept fork name,;*,/,~ 
* or “*L"’,/,’ or system program name’,//) 
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Cc 
Cc 
160 


170 


«wee ACTION 


FORMAT(’ The directory <ACTION> exists to receive user messages 
lconcerning questions,’,/,’ suggestions, documentation or proble 
2ms with subsystem software, systems’,/,’ operation, director 
3ies, or terminals. <ACTION>’’s message file is scanned’,/,’ 
4constantly during the day, and all requests are acted upon by =U 
Sser Services’,/,’ personnel.’,//,’ The purpose of this centralized 
6 mailbox is to insure that:’,//,’ 1. all comments are readily 
7recognized and acted upon.’,//,’ 2. action requests are not de 
8layed in personal message files due to’,/,’ unexpected abse 
S9nces.’,//,’ When in doubt as to where your question, suggestion, e 
ste, should be sent’,/,’ to <ACTION>. Your comments are also welc 
le.’,//,’ See MSG section of this tutorial for inatructions on send 
Zing a message.’ ,//) 

FORMAT(’ Whenever a user los into TOPS-20, any new system messages 
1 are printed on’,/, 

2’ on their terminal. The purpose of these messages is to inform u 
3sers of’,/, 

4’ changes to the system.’,//, 

5’ If this is your first session, the system did not display the ne 
6w system’,/, 

7’ messages to you yet. On the next session you will see all the s 
8ystem’,/, 

9’ messages. There may be a lot of messages because we keep 2 mont 
“ha of’ ,/, 

1’ messages on line. On later sessions you will see only the new m 
2Zessages.’,//) 


FORMAT(’ TYPE Q TO QUIT, ANY OTHER CHARACTER TO CONTINUE’ ) 
owes SIGN-OFF ROUTINE FORMATS 


FORMAT(C’ This concludes the introduction section.’,//) 
FORMAT(’ Sorry to see you quit s0 soon.’,//) 

FORMAT(’ ENTER ANY KEY TO RETURN TO THE MAIN MENU: ’,5S) 
FORMAT (1A1) 

FORMAT (2A5S) 

FORMAT (////) 

END 
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SUBROUTINE ELC1¢(DUM) 


se=======BASIC EXECUTIVE LEVEL COMMANDS SUBROUTINE==<========== 


= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES BASIC COMMANDS 
= USEFUL AT THE EXECUTIVE LEVEL OF THE DDN/TOPS-20 SYSTEM. 


DIMENSION INPUT(1) 
DUM=0 
NEXT=0 


INTRO TO CURSOR COMMANDS 


TYPE 1600 

TYPE 1100;GO TO 200 
TYPE 1110;GO TO 200 
TYPE 1115;GO TO 200 


INTRO TO DIRECTORY RELATED COMMANDS 


TYPE 1120;GO TO 200 

TYPE, 1125 

NEXT=NEXT+1 
READ(0S,1400,ERR=35) INPUT 


QUERY IF USER DESIRES DEMONSTRATION 
IFCINPUT(1).EQ.’N’ .OR.INPUT(1).EQ.’n’)GO TO 100 
DEMONSTRATION SUBROUTINES 


CALL DIRECT (DUM) 
GO TO 200 

CALL TYPECDUM) 
GO TO 200 

CALL APPEND(DUM) 
GO TO 200 

CALL RENAME (DUM) 
GO TO 200 

CALL ARCHIV¢(DUM) 
GO TO 200 

CAEL DELETE (DUM) 
GO TO 200 

CALL UNDEL‘(DUM) 
GO TO 200 

CALL EXPUNG(DUM) 
GO TO 100 
NEXT=12 


INTRO TO SYSTEM RELATED COMMANDS 


TYPE 1200 
GO TO 200 


AY, 


TYPE 1293 
GO TO S00 


QUERY TO SEE ITF “USER DESTRES TO CONTINUE 


TYPE 1300 

NEXT=NEXT+1 

READ(05,1400,ERR=205) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.°N’ .OR. INPUT (1) .EQ.’n’)GO TO 320 
GOTO (15,20,25,30,35,40,45,50,55,60,65,70,105) NEXT 


saee SIGN-OFF ROUTINE 


TYPE 1240 

TYPE 13790 
READ(05,1400,ERR=510) INPUT 
RETURN 

TYPE 1250 

TYPE 1370 
READ(05,1400,ERR=530) INPUT 
RETURN 


aennaeeFORMATS FOR BASIC EXECUTIVE LEVEL COMMANDS SUBROUTINE #«#s#eaa- 
aeee LISTING OF EXECUTIVE LEVEL COMMANDS 


FORMAT (20X, “EXECUTIVE LEVEL COMMANDS (BASIC)’,//, 

1’ You are in the Executive (EXEC) Level of the TOPS-20 operating s5 
2ystem after’,/, 

3’ you log on or after execution of system routines; noted by the d 
4iaplay of ’,/, 

*’ the “G* prompt. Commands here fall into three categories:’,//, 
ve fi 1 Cursor Commands’ ,/, 

6’ 2. Directory-Related Commands’,/, 

Wan x a System-Related Commands’,//, 

8’ The more basic/most often used of these commands are presented i 
9n this section’,/,’ of the tutorial. The remainder are presented 
*“in section three.’,//, 

1’ Notes:’,//, 


Za LT; The *" * * character refers to the control (CTRL) key.’,/, 
So 2. ESC refers to the escape (ESC) key.’,/, 

4’ Se <CR> refers to the carriage return or enter key.’,/, 

> ig 4. DEL refers to the delete (DEL) key.’,//) 


#eee CURSOR COMMANDS 


FORMAT (20X, “BASIC CURSOR COMMANDS’,//, 

1’ KEY (Cs) USE “(a> "4/77, 

2 ese This key usually completes a command or FileName. On 
3ce you have’,/,’ typed enough of a command or FileName 

¢for the system to recognize’ ,/,’ it, type the Escape ke 
Sy to complete it. If you haven’’t typed’,/,’ enough, t 
6he system simply beeps and waits for you to type more.’,//, 
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1 


1 


229 


D220 


PoereG TRL. Used with another key to enter a command. You may ho 


Sid down tité’ ,/,~ CTRL key as long as you want, but shou 
91d press the other Key only’,/,’ once (the same as you 
*would use the shift key on a typewriter).’,//, 

ao aa Used to abort a partially typed or partially complete 
2d command ’,/,’ (sometimes this may require several “C 
3s). If you are in the middle ’,/,’ of a program, typin 
4g “C will return you to the EXEC level. (This ia’,/,’ n 
Sot usually the best way to leave a program).’,//) 

FORMAT(’ @ Prompt for the EXEC level. (To enter this cha 
aractér into téxt,’,/,; 

Zo while accessing the host through a TAC, type it twice 
* -- the system’,/, 

a’ will respond with a third "@").’,//, 
3’ DEL Deletes characters from right to left.’,//, 
6’ *O Stops terminal output.’,//, 

a’ “WJ Deletes words from right to left.’,//, 

2 A sg End-of-file. Used whenever you have finished enterin 
z2q data, text,’ ,/7,” messages, etc.’,//, 
3’ <CR> Confirms a given command. Most commands are not exec 
4uted until you’,/,’ type a carriage return.’,//) 


LISTING OF DIRECTORY RELATED COMMANDS 


FORMAT ¢ ” DIRECTORY-RELATED COMMANDS’ ,//, 

1’ A complete listing of Directory-Related commands can be seen by 

2typing “?°’,/,’ after the "@" prompt. The following is a listing 

Sof those most often used.’ ,//, 

4’ Note: A filename within the TOPS-20 system is composed of a4 nam 
Se, a type and’,/,’ a generation number. Thus, HOMEWORK.EXE.S is a 

6file with a name of “HOMEWORK” ,’,/,’ a type of “EXE* and is the fi 
7fth generation. In the following material, we’,/,’ abreviate file 
8name with “FN; filetype with “FT: generation number with "NU".’, 
e//, 


2’ Command Use (s)’,//, 
6’ DIRECTORY Lists the names of all of your files.’,//, 
Va ly PE Types the contents of a file.’,//, 
8’ APPEND Appends one file to another’,//) 
FORMAT(’ RENAME Renames a file.’,//, 
1’ ARCHIVE Places a file in off-line storage.’,//, 
Zao ELETE Deletes a file from your directory.’,//, 
3’ UNDELETE Puts “DELETEd”" files back in your directory unless yo 
4u have’,/,’ “EXPUNGEd”™ or logged off or occassionally, 
*if the system crashs’,/, 
= after you “DELETEd” the files.’,//, 
6’ EXPUNGE Permanently erases all “DELETEd” files.’,//, 


7’ WOULD YOU LIKE A DEMONSTRATION OF THE ABOVE COMMANDS (CY or N)?’, 
8S) 


EZSOTING GF SYSTEM RELATED CONMANDS 


FORMAT ¢ ’” SYSTEM-RELATED COMMANDS (BASIC)’,//, 
1’ System related commands include:’,//, 


D1 


1205 


2°’ FINGER SYSTAT TALK REF’ ,/, 

3 REC INFO DISK INFO MAIL TER NO RAISE’ ,727, 

4’ FINGER and SYSTAT are discussed in the following. The others ar 
4e’,/,’ presented in the third section (TOPS-20 LEVEL COMMANDS - AD 
SVANCED).’,//) 


FORMAT (¢’ FINGER:’,//, 

1’ FINGER is used to find out information about a specific user, an 
2d’,/,’ is invoked by typing “FINGER USER <CR>* after the “@" promp 
3t (USER’,/,’ refers to the account name).’,//, 
4° \SYSTAT:’*¢7 7 
5’ SYSTAT is used to see everyone, or if a specific individual is l 
sogged on a’,/, 
6’ specific host. Typing SYSTAT after the “G@" prompt followed by a 
* <CR> will’,/, 

7’ list everyone on the net. To see if a particular individual is 
*on the net,’,/, 
8’ type “SY USER <CR>" after the “G" prompt. The system will answe 
*r with the’,/, 
9’ Job Number, etc. for that individual, or with just an “G" prompt 
*. The latter’,/, 

1’ indicates that the USER is’,/,’ not on the net.’,//) 


vane SIGN-OFF ROUTINE 


FORMAT’ This concludes the “basic” Executive Level Command sectio 
in of the’,;7,’ tuterial.7 37/2 

FORMAT’ SORRY TO SEE YOU LEAVE SO SOON’ ,//) 

FORMAT¢C’ DO YOU WISH TO CONTINUE (CY or N)?’,S8) 

FORMAT(C’ ENTER ANY KEY TO RETURN TO THE MAIN MENU: ’,5) 

FORMAT CA1) 

FORMAT(////) 

END 


De 


an 
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SUBROUTINE DIRECT (DUM) 


Sete e2eee22e2e22e2222222=2DIRECTORY SUB-SUBROUTINES 2222222222 2222222=22: 
= DEMONSTRATION OF VIEWING YOUR DIRECTORY OF FILES LISTING = 


DIMENSION DEMO(2),INPUT(1) 


NUM=0 
TYPE 100 
READ(0S,105,ERR=15) DEMO 


IF (DEMO(1).EQ.’Q’ .OR.DEMO(1) .EQ.’q’)GO TO 40 

PE COEMOC 1) SEG. DIREC” CAND. DEMO<(2) EQ. TORY” .OR.DEMO(C1) .EQ.”° direc’. 
1AND.DEMOC2) .EQ.’tory’ .OR.DEMO(1).EQ.’DIR’.AND.DEMO(2).EQ.’ *°.OR.DE 
2MO0(1).EQ.’dir’ .AND.DEMO(C2).EQ.° *)G 


NUM=NUM+1 

GO TO (20,25,30)NUM 
EYPE 110 

GO TO 10 

TYPE 11s 

GO TO 10 

NUM=0 

TYPE 120 


READ(05,125,ERR=15) INPUT 
PPCENPUT(1).EQ.°Y’.OR.INPUTCI).EQ.’y°) GO TO 5S 


GO TO 40 
TYPE 130 
RETURN 


#e#ee FORMATS FOR DIRECTORY 


FORMAT(//’ DIRECTORY:’,/ 
1’ Typing in “DIRECTORY” 


2d by a <CR>’,/,’ will list 


/» 
or just “DIR” after the "“@" prompt followe 
the current contents of your directory. 


S Give it a try.’,//,° @° ,S) 


FORMAT (2A5) 
FORMAT(’ NOPE! TRY AGAIN 


FORMAT(’ NOPE! TRY HARDER.’,//,’ @’ 
FORMAT(’ What you should have typed in after the "@" prompt was:’, 


tw, <OLRECTORY or DIR’ ,77,° 


FORMAT (Al) 


Get so 


SUB-SUBROUTINE*## #e Hee ee HHH 


S) 
eS) 


CARE TO TRY AGAIN CY or N)?’,S) 


FORMAT ¢’ PS:<YOUR ACCOUNT NAME>’,/, 
(This file controls the XED editor’,/, 


tae ke =MODE-FILESS.. 1 

Zo (MSG SPROP TLE) 21 

3’ FINGER.PLAN.1’,/, 

4’ HAS.ANY.1’,/, 

SMA hw Td ed 

SoM ReEMENDGRND. 1 5:75 

7’ Total of 23 pages in 6 


(This file 


(This file 


files’,//, 


8’ The above is what you would see, 
9ht.’,//,”’ NOTE: NEVER DELETE ANY OF THESE CONTROL FILES UNTIL YOU 


* ARE FAMILIAR WITH’,/,’ 
END 


ae, 


controls the MSG system)’,/, 


controls your mailbox)’,/, 


except for the notes to the rig 


THE SYSTEMNG 77? 


an 


ganNAnA 


SUBROUTINE TYPECDUM) 


DIMENSION DEMOC(3),INPUT(1) 
NUM=O0 

TYPE 100 
READ(05,105,ERR=15) DEMO 
IF (DEMO(1).EQ.’Q’ .OR.DEMO(1).EQ.’q’)GO TO 40 


IF (DEMO(1).EQ.’TYPE 
1’ .OR.DEMOC(1) .EQ. ’type 


251. GO7 1Oss> 


NUM= 


NUM+1 


GO TO ¢(¢20,25,30)NUM 

TYPE 110 

GO TO 10 

TYPE 115 

GO TO 10 

NUM=0 

TYPE 20 
READ(05,125,ERR=15) INPUT 
IF CINPUT(1).EQ.’Y’ .OR.INPUTC1).EQ.’y’) GO TO S 
GO TO 40 
TYPE 130 
RETURN 


AND. DEMOC(2) .EQ.’FACE.’ .AND.DEMOC3) .EQ. ’WHO.1 
°.AND.DEMOC(2) .EQ.’face.’ .AND.DEMOC3) .EQ.’who 


#ses FORMATS FOR THE TYPE SUB-SUBROUTINE*#sssssnnssnsnsnnnnnnneune 


FORMAT(//’ TYPE:’,//, 
1’ The “TYPE* command is invoked by typing “TYPE FN.FT.NU <CR>" aft 


zer the “@"’,/,’ prompt. Try TYPing out the contents of the FACE.W 
SHO. Lt tile. °,//,° Gas? 


YOU CAN DO BETTER THAN THAT’,//,’ @’,S) 
WHY DON’’T YOU TAKE ANOTHER STAB AT IT’,//,’ @’,S) 
What you should have typed in after the “G" prompt was:’, 


TYPE FACE.WHO.1’,//,°’ CARE TO TRY AGAIN CY or N)7’,5) 


FORMAT (3A5) 

FORMAT ¢ ” 

FORMAT ¢’ 

FORMAT ¢ ’ 

LS 7 

FORMAT C(A1) 

FORMAT ¢ 

ae XXXXXXXXXXXXX 

Pig XXXXXXXXXXXXXXX 

ja XXXXXXXXXXXXXXXXX 
r= i XXX XXX 

Gx XXX XXX 

Fie XXX XXXX XXXX XXX 
cold XX xX XX X X XX X XX 
oS XX xX XX X X XX X XX 
ad XXX XXXX XXX XXXX XXX 
1? XXX XXX XXX 
Pa XXXX XXX XXXX 
= ig XXXX XXXXX XXXX 


. +t 9 8 
SS SS SS SS OS aS SEs a OS 


. e .] . . 1) . v 


. . » 1) . 


. v .] . .] . . 


D4 


5’ 
END 


XXXX x X XXXX 
XXXXXX XXX XXXXXX 
XXXXXXX XXXXXXX 
XXXXXXXX XX XX XXXXXXXX 

xX XXXXXXX xX 
X XXXXX X 
X X 
X X 
XXX XXX 
XX XX XX XX 
XX XXXXXXXXXXX XX 
X X X X 
X X X X 
xX XX XX X 
XXXXX XXXXX 

X 
X X 
XX XX 
XX XX 
XXXXX 
XXX 


, 


“l/l, 


THE FATHER OF YOUR COUNTRY...GEORGE WASHINGTON’ ,//) 


22 


a0 


aAaganA 


abs) 


20 


22 


30 


100 


SUBROUTINE APPEND(CDUM) 


SsssssssessesessAPPEND SUB-SUBROUTINE==s222ee8282 2288552 S25 522255EEE 
= DEMONSTRATION OF APPENDING ONE FILE TO ANOTHER = 


awwewewerwrwewewewewewewewew eww = wBMewrewrewrwewewwrwewwerwewwewwewwerwewewwx2w ws wsewewwewewewewwes @ w= Bw we we we ws |S we 
asa eeweweeeeeeeee = aes ee ese eee ee ese eeeeeeeeeeeeeeeeeeeeaee @eeeeaeeee @aee = ae =| = = = 


DIMENSION DEMO(6),INPUT(1) 

NUM=0 

TYPE 100 

READ(05,105,ERR=15) DEMO 

IF (DEMO(1).EQ.’APPEN’ .AND.DEMO(2).EQ.’D TEM’ .AND.DEMO(3) .EQ.’P2.FO 
1’.AND.DEMO(4) .EQ.’R.1 T’ .AND.DEMOCS) .EQ.’EMP1.’ .AND.DEMOC6) .EQ.’FO 
2R.1’.OR.DEMO(1).EQ.’appen’ .AND.DEMO(2).EQ.’d tem’ .AND.DEMOC(3).EQ. 
3’p2.f0’ -AND.DEMO(4) .EQ.’r.1 t’.AND.DEMOC(S) .EQ.’emp1.’ .AND.DEMO(C(6). 
€EG@. “for.2°)GO TQ 3s 

NUM=NUM+1 

GO TO (20,25,30)NUM 

TYPE 110 

GO TO 10 

TYPE 115 

GO TO 10 

NUM=0 

Js 364 ©, 

READ(05,125,ERR=15) INPUT 

IF CINPUT(1) .EQ.’Y’ .OR.INPUT(1).EQ.’y’) GO TO 5S 

GO TO 40 

TYPE 130 

RETURN 


seeeeeee FORMATS FOR THE APPEND SUB-SUBROUTINE*#seesee te eeeeeneen ee 


FORMAT(//’ APPEND:’,//, 

1’ The “APPEND” command is typed after the "@" prompt, followed by 
2the file to’,/,’ be appended, followed by the file to be appended 
Sto, followed by a <CR>. i.e.’,/,°’ “APPEND B.1.1 A.1.1<CR>” will ca 
4use the contents of the B file to be placed’,/,’ in the A file at 
 ~the end. Try appending TEMP2.FOR.1 to TEMP1.FOR.1.’,//,’ @’,5) 

FORMAT (6A5) 

FORMAT(’ OH DEAR! TRY AGAIN.’,//,’ @’,S) 

FORMAT(’ NOPE! TRY HARDER.’,//,’ @’,8S) 

FORMAT’ What you should have typed in after the "“@** prompt was:’, 
1//,’ APPEND TEMP2.FOR.1 TEMP1.FOR.1’,//,’ CARE TO TRY AGAIN (CY or 
ZN GSO 

FORMAT CA1) 

FORMATC” TEMP2.FOR.1 ([OK1’,//,°* THE ABOVE LINE INDICATES COMPLETia 
1N OF THE APPEND.’ ,//) 

END 


as 
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SUBROUTINE RENAME (DUM) 


== — = 2 = 5 == = = —— Re NANE SUB=SUBROU LINE ==s==s=2s2e=]=255===S2=2=522s2s252Ss== 
= DEMONSTRATION OF RENAMING A FILE = 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
ee ee ee ee ee ee Oe ae ee ne ee ee ee ee ee ee ese eerste se st eee eeeseeeeseeeeseeeeee ee ee ewe eee se ST eel 


DIMENSION DEMO(4),INPUT(1) 

NUM=0 

TYPE 100 

READ(05,105,ERR=15) DEMO 

IF (DEMO(1).EQ.’Q’.OR.DEMO(1).EQ.’q’)GO TO 40 

IF (DEMO(1).EQ.”°RENAM’ .AND.DEMO(2).EQ.’°E TTT’. AND.DEMO(3).EQ.°%..1 T 
1’.AND.DEMO(4).EQ.’AT..1’.OR.DEMO(1).EQ.’renam’.AND.DEMO(2).EQ.’e t 
2tt’ .AND.DEMO(3) .EQ.’..1 t’ .AND.DEMO(4) .EQ.’at..1’)GO TO 35 
NUM=NUM+1 

GO*TO (20,25, 30) NUM 

TYPE 110 

GO TO 10 

TYPE 11S 

GO TO 10 

NUM=0 

TYPE 120 

READ(05,125,ERR=15) INPUT 

PRPCINPUT C1) EO." Y°.OR. INPUT (C1).EQ.*y*) GO TO S 

GO TO 40 

TYPE 130 

RETURN 


«eee FORMATS FOR THE RENAME SUB-SUBROUTINEs###eeenennnnnnnnnnnnnnen 


FORMAT(C’ RENAME:’,//, 

1’ The “RENAME" command is issued by typing “RENAME (Cold) FN.FT.NU 
2(new) FN.FT’,/,’ <CR>" after the "G"" prompt. Let’’s give it a try 
3 by renaming TTT..1 to TAT..1.%,//,’ @’ ,S) 

FORMAT (4A5) 

FORMAT(C’ NOPE! TRY AGAIN.’,//,’ @’,S) 

FORMAT(’ NOPE! TRY HARDER.’,//,’ @’,5) 

FORMAT(’ What you should have typed in after the "@" prompt was:’, 
77 RENAME T11..i. TAT«.1°,7/,° CARE TO TRY AGAIN CY or Nd)?’ ,8) 
FORMAT (Al ) 

FORMAT(’ TTT..21 => TAT..1 (COK]’,//,’ THE LINE ABOVE SHOWS US THAT 
1THE RENAME IS COMPLETE.’,//) 

END 


pf 


Q0 
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SUBROUTINE ARCHIV(DUM) 


DIMENSION DEMOC3) , INPUT (1) 

NUM=0 

TYPE 100 

READ(05,105,ERR=15) DEMO 

IF ¢(DEMOC(1).EQ.’Q’ .OR.DEMO(1) .EQ.’q’)GO TO 40 
IF (DEMO(1).EQ.’ARCHI’ .AND.DEMOC(2).EQ.’VE TA’ .AND.DEMOC3) .EQ.’T..1’ 
1.OR.DEMO(1).EQ.’ archi’ .AND.DEMO(2).EQ.’ve ta’. AND.DEMOC3) .EQ.’t..1 
2’)GO TO 35 

NUM=NUM+1 

GO TO (20,25,30) NUM 

TYPE 110 

GO TO 10 

TYPE 115 

GO TO 10 

NUM=0 

TYPE 120 

READ(05,125,ERR=15) INPUT 

IF CINPUT(1).EQ.’Y’ .OR.INPUT(1).EQ.’y’) GO TO 5 
GO TO 40 

TYPE 130 

RETURN 


«eee FORMATS FOR THE ARCHIVE SUB-SUBROUTINEs###eeeeeneoeeeven eee n en 


FORMAT(//’ ARCHIVE:’,//, 

1’ The “ARCHIVE” command is typed after the "@" prompt followed by 
2 the FN.FT.NU’,/,’ Cof the file you wish saved off-line) followed 
3Sby a <CR>. Thus, “ARCHIVE ’,/,’% FINGER.PLAN.1 <CR>" would request 
4 the Finger file be archived. Give it’,/,’ a try by ARCHIVEing th 
Se TAL... £116. s/f Ge Go) 

FORMAT (3A5) 

FORMAT(’ Hmmm. I’’LL PRETEND I DIDN’’T SEE THAT WHILE YOU TRY AGAI 
Ne «//, 2S =o 

FORMAT** NOPE! TRY HARDER.’,//,’% @’,S) 

FORMAT(C’ What you should have typed in after the "GG" prompt was:’, 
1//,° ARCHIVE TAT..1’°,//,’ CARE TO TRY AGAIN CY or N)?’,5S) 

FORMAT (¢A1) 

FORMATC’ TAT..1 (CREQUESTED]”’,//,* THE ABOVE LINE INDICATES THAT iG 
IE FILE WILL BE."ARCHIVED.’ 7.77) 

END 


58 
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SUBROUTINE DELETE (DUM) 


=_e<c5 e222 2 82 Ss se eee eee ee eee ee ee eee ee ee ee ee cond —_— =_ a = -_ _—_ = -_ = 
ll ee ee ee ee ee ee ee ee ee ee 


DIMENSION DEMO(4) , INPUT(1) 

NUM=0 

TYPE 100 

READ(0OS,105,ERR=15) DEMO 

IF (CDEMO(1).EQ.’OQ’ .OR.DEMO(1) .EQ.’q’)GO TO 40 

IF (DEMO(1).EQ.’ DELET’ .AND.DEMO(2).EQ.’°E HAS’ .AND.DEMOC(3).EQ.’ .ANY. 
1’ .AND.DEMO(4) .EQ.’°1’.OR.DEMO(1).EQ.’delet’ .AND.DEMO(2).EQ.’e has’. 
2AND.DEMO(3).EQ.’ .any.’.AND.DEMO(4).EQ.’1’)GO TO 35 
NUM=NUM+i 

GG-1G (20,25, 30) NUM 

Tyee] 1 16 

GO TO 10 

PPE 1335 

GO TO 10 

NUM=0 

TYPE 120 

READ(05,125,ERR=15) INPUT 

IFCINPUT(1).EQ.’Y’ .GR.INPUT(1).EQ.’y’) GO TO 5S 

GO TO 40 

TYRES oo 

RETURN 


#eeeeeeeFORMATS FOR THE DELETE SUB-SUBROUTINE*##sseeeesnneenneawnn 


PeRMALCZ?’° DELETES, 7/7, 

1’ The “DELETE” command is typed after the "G" prompt followed by t 
Z2he’,/,’ FN.FT.NU (of the file you wish to delete) followed by a <C 
3SR>. ie “DELETE’,/,’ FINGER.PLAN.1 <CR>" would delete the Finger f 
4ile. Now it’’s your turn. Type in’,/,’ the appropriate command to 
> delete the HAS.ANY.1 file.’,//,’ @’,S) 

FORMAT (4A5) 

FORMATC’ TRY AGAIN, SWEETIE. I WON’’T TELL.’,//,’ @’ ,S) 

FORMAT(’ ALRIGHT, YOU CAN HAVE ONE MORE CHANCE.’,//,’ @’,S) 
FORMAT(’ What you should have typed in after the "@" prompt was:’, 
ive DELETE, HAS.ANY.1°,//7,° CARE TG TRY “AGAIN Cyoor N)?’,2) 

FORMAT (A1) 

PGRMATC’ HAS.ANY.1. (0K]’,//,’ THE ABOVE LINE INDICATES THAT THE FI 
PEE SHAS BEEN DELETED.” , 77> 

END 


a: 
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SUBROUTINE UNDEL‘(DUM) 


esesersssesese=UNDELETE SUB-SUBROUTINESs22e28228228228 2882822282222 5222e22 
= DEMONSTRATION OF UNDELETING A FILE = 


ae weewee eee e eee ee ewe eeweweweweese Bee ewww es ese ewewewewewew eww ew ese we] See eee ee eee ee ee eS 
eae ee eee ereeeeee ews ee eeee es = SF ees es eee ese ewe eee Ss Ss S| ees |S ee swe wees eS eS eS eS eee eee ee ee 


DIMENSION DEMO(3),INPUT(1) 

NUM=0O 

TYPE 100 

READ(0S5S,105,ERR=15) DEMO 

IF (DEMO(1).EQ.°Q’.OR.DEMO(1) .EQ.’q’)GO TO 40 

LF CDEMO¢(1).EQ.”’UNDEL’ .AND.DEMO<2) .EQ.’ETE T*’ .AND.DEMO(S3) (EGR Alaa 


1’ .OR.DEMO‘(1) .EQ.’undel’ .AND.DEMO(2) .EQ.’ete t’ .AND.DEMOC3) .EQ.’at. 
2.1, )GO.TO-3s 


NUM=NUM+1 

GO TO (20,25,30) NUM 

TYPE 110 

EOr71G) 10 

TYPE 125 

GO TO 10 

NUM=0 

TYPE 120 
READ(05,125,ERR=15) INPUT 
IF CINPUT(1).EQ.’Y’ .OR. INPUT(1) .EQ.’y’) GO TO 5 
GO TO 40 

TYPE 130 

RETURN 


#e#eeeeeeePORMATS FOR UNDELETE SUB-SUBROUTINE*###eeeennnnnnnnnnaenn a 


PGRMAT(//* UNDELETE:% (//, 


1’ The “UNDELETE” command is typed after the "“@* prompt followed by 
2 the FN.FT.NU’,/,’ ‘Cof the file you wish returned to the directory 
3) followed by a <CR>. That is’,/,’ “UNDELETE FINGER.PLAN.1 <CR>" 
4would return the Finger file. Lets’’s give it’,/,’ a try by UNDEL 
SETEins the TAT..lvfiile.°;//7;° GC 7s) 


FORMAT (3A5) 

FORMAT‘’ NOPE! TRY AGAIN.’,//,’ @’,S) 

FORMAT*’ ONCE MORE PLEASE.’,//,’ @’,8) 

FORMAT(’ What you should have typed in after the "@" prompt was:’, 


1//,” UNDELETE TAT..1° »4/, “CARE 70 TRYSAGAIN “GVloreN) 7° 30 


FORMAT CA1) 
FORMAT.” TAT..1 €OKJ">//,° THE ABOVE LINE INDICATES SHAT Timers 


LLE*HAS BEEN RETURNED. > 77) 


END 
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SUBROUTINE EXPUNG (DUM) 


DIMENSION DEMOC2),INPUT(1) 

NUM=0O 

TYPE 100 

READ(05,105,ERR=15) DEMO 

IF CDEMO(1).EQ.’Q’ .OR.DEMO(1) .EQ.’gq’)GO TO 40 
IF C(DEMO(1)>.EQ.’EXPUN’.AND.DEMOC2) .EQ.’GE’ .OR.DEMO(1) .EQ.’ expun’ .AN 
TD. DEMO(C2).EQ.° ge’ 2GO TO S35 

NUM=NUM+1 

GO TO (20,25, 30)NUM 

TYPE 110 

GO TO 10 

TYPE i115 

GO TO 10 

NUM=0 

TYPE 120 

READ(O5,125,ERR=15) INPUT 

IF CINPUT(1).EQ.’Y’.OR.INPUT(1).EQ.’y’) GO TO 5S 
GO TO 40 

ty PE lL3so 

RETURN 


Seen seseveuesPFORMATS FOR EXPUNGE SUB-SUBROUTINE@*4 @ wees eetnnnnnntbannen 


FORMAT(//’ EXPUNGE:’,//, 
1’ This command is typed after the "@" prompt followed by a <CR>. 
2No FileName’,/,’ is required, as it permanently erases ALL files f 


3o0r which you had previously’,/,’ issued the "“DELETE*' command. Giv 
4e it a try.’,//,’ @’,8) 
FORMAT (2A5) 


FORMAT(’ NOPE! TRY AGAIN.’,//,’ @’,S) 

FORMAT(C’ NOPE! TRY HARDER.’,//,’ @’,S) 

FORMAT(’ What you should have typed in after the "@" prompt was:’, 
1//,°’ EXPUNGE’,//,’ CARE TO TRY AGAIN (Y or N)?’,5) 

FORMAT CA1) 

FORMATC’ PS:<YOUR ACCOUNT NAME> (10 PAGES FREED]’,//,’ THE ABOVE L 
LINE INDICATES THAT YOUR DIR HAS BEEN EXPUNGED.’,//) 

END 


61 


an 


qaqaaqagaanNn 


aqgaaga 


Ales 


40 


105 


SUBROUTINE ELC2¢(DUM) 


= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES HIGHER LEVEL = 
= COMMANDS AT THE EXECUTIVE LEVEL OF THE DDN/TOPS~-20 SYSTEM = 
= SYSTEM. IT SERVES AS A FOLLOW-ON TO THE ELC1 SUBROUTINE. = 


— = a ee ee ee ee ee oe ee oe ee ee ee ee ee we we iw es ie oe = oo 


DIMENSION INPUT(1) 
DUM=0 


senxne INTRO TO EXECUTIVE LEVEL RELATED COMMANDS 


TYPE 1600 

TYPE 1100 

TYPED 1320 

TYPE 2330 

READ (05,1400,ERR=15) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’ GO 
TYPE 1110 

TYEE 71330 

READ(05,1400,ERR=25) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.°Q’ .OR.INPUT(1) .EQ.°q’ GO 


eeee INTRO TO DIRECTORY RELATED COMMANDS 


TYPE 1120 

TYPE 1330 

READ(05,1400,ERR=35) INPUT 

TYPE 1600 

TFCINPUT (1) .EOQ=" OG" JGR-INPUT (1) (EO. 4q 1GG 


eseee INTRO TO SYSTEM RELATED COMMANDS 


TYPE i200 

TYPE S2 330 

READ (05,1400,ERR=40) INPUT 

iY PE 1600 

IF CINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’ )GO 
TYPE 1205 

iVeEE 330 

READ(05,1400,ERR=19S5) INPUT 

TYPE 1600 
IFCINPUT(1>.EQ.”°O° .OR. INPUT (1>.EQ. “q* GG 
TYPE 1270 

TYPE 1330 

READ (05,1400,ERR=110) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’O’ .OR. INPUT(1).E0.”’q’)GO 
TYPE i226 
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TO 


18) 


TO 


TO 


TO 


TO 


220 


=20 


S40) 


S20 


520 


320 


Ca eee ee ee Ue 2 le ee ee ee ee ee ee ee ee le ee 
ee ee ee ee ee ee ee ee ee ee lL es SD  _ _ __.._.._.__ ee ed ee 


a 


100 


110 


neue QUERY TO SEE IF USEK DESIRES DEMONSTRATION OF TALK COMMAND 


READ(CO5,1400,ERR=499) INPUT 
IF CINPUT(1).EQ.°N’ .OR.INPUTC1).EQ.’n’) GO TO 520 
CALL TALKCDUM) 

TYPE 1240 

TYPE 1370 
READ(0O5,1400,ERR=510) INPUT 
RETURN 

TYPE 1250 

TYPE 1370 
READ(05S,19400,ERR=530) INPUT 
RETURN 


eee eFORMATS FOR ADVANCED EXECUTIVE LEVEL COMMANDS SUBROUTINE*#«uae 
sees DEMONSTRATION OF EXECUTIVE LEVEL COMMANDS 


FORMAT (20X, “EXECUTIVE LEVEL COMMANDS CADVANCED)’,//, 

1’ You are in the Executive (CEXEC) Level of the TOPS-20 operating s 
eystem after’,/, 

2’ you log on or after execution of system routines. You are in th 
*is level when’,/, 

3’ the system prompts you with the "@" prompt. Commands at this le 
«vel fall into’,/, 

4’ three categories:’,//, 


= I 1. Cursor Commands’ ,/, 

6’ 2. Directory-Related Commands’,/, 

Vig 3. System-Related Commands’ ,//, 

8’ The more basic/most often used of these commands were presented 
Sin section 2’,/,’ of the tutorial. The remainder are presented 


*here.’,//, 
1’ Notes:’ ,//, 


Pag 1. The “ * “ character refers to the control (CTRL) key.’,/, 
iy 2. ESC refers to the escape (ESC) key.’,/, 

4’ 3. <CR> refers to the carriage return or enter key.’,/, 
= 4. DEL refers to the delete (DEL) key.’,//) 

FORMATC20X, ’ADVANCED CURSOR COMMANDS’ ,//, 

a KEY (Cs) USE <s2.,/7, 

a odd This command can be used to satisfy yourself that the 
3 system is’,/,’ still running. For example, if the syst 
dem is responding slowly and’,/,’ you type “T, informati 
Son on the system status and the amount of’,/,’ CPU time 
6 you have used since you logged on is displayed.’,//, 

Zo S Freezes typeout on the screen and acts as a No Scroll 
8 key.’,//, 

1’ “9 Resumes typeout on a screen that was stopped by a “S 


Zcommand.’,///) 
zeae DEMONSTRATION OF DIRECTORY RELATED COMMANDS 
FORMAT ¢ ’” DIRECTORY RELATED COMMANDS’ ,//, 


1’ A complete listing of Directory Related commands can be seen by 
Z2typing “?7"",/,’ after the "@" prompt. The following is a listing 
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1205 


1210 


3o0f those most often used.’,//,’ Note: FN = FileName; FT = FileTy 
4pe; NU = FileNumber’,//, 

3’ Command Use (s)’,//, 

6’ SET DIR PASS This command changes your password.’,//, 

7’ PROTECTION The protection for each file in your directory cons 
8ists of a’,/,’ six-digit number divided into three groups of two d 
Sigits each. The’,/,’ first pair represents owner access to the fil 
ee, the second pair represents’,/, 

1’ group access, and the last pair represents world access to the f 
*ile.’,/, 

2°’ By setting the protection for files in your directory, you can c 
*ontrol who’,/, 

3’ can access and/or change your files. The default protection is 7 
*7oZOOn ays 4 

4’ This allows you full access (77), members of your group partial 

saccess’,/, 

3’ (to list your directory, and to read and execute your files: S52) 
*, and’,/, 

6’ prohibits all other users from gaining access to your files (00) 
Re pe 5 


7’ For more info, type HELP PROTECTION.’ ,//) 


eaee DEMONSTRATION OF SYSTEM RELATED COMMANDS 


FORMAT ¢’ SYSTEM-RELATED COMMANDS CADVANCED) 777, 
1’ System related commands include:’,//, 

2’ FINGER SYSTAL TALK REE a7 

SRE > INFCG DISK INFO MAIL TER NOGRATSE’ | 77/,; 


4’ FINGER and SYSTAT were previously discussed. The others are’,/, 
3’ presented here.’,//) 

FORMAT ¢€° ATTACH 4477. 

1’ ATTACH Attaches a you to a job. For example, if you some 
*how get’,/, 

2’ detached from your directory before you get a chance to log out, 
* log back’ ,/, 

3’ in to the host and ATTACH yourself to the your old job number. 
«If you don’’t’,/,’ remember what your old job number was, just SYS 
*TAT yourself.’,//, 

4* TER NG RAISE: ,//, 

3’ TER NO RAISE Makes your terminal accept both upper and lower c 
6Gase’,/,’ letters if, for some reason, it is only accepting upper c 
7ase’,/,’ letters.’,//, 

SINE OOMATICC a7 7, 

9’ INFO MAIL Asks the system to list any unlooked-at messages in 
e°7/,°. your mailbox. ,7 7; 

L2SENEO DISK: , 77; . 

2 INFO DISK Lists information about your current page allocatio 
3n for’,/,’ directories and for the system.’,//) 

FORMAT ©* TALK: 77, 

1’ TALK <user> Creates a communication link with another user. Use 
* this in place’,/, 

2’ place of a message if the other user is logged on at the same ti 
*me you are.’,/, 

3’ If you suddenly see the phrase “LINK FROM <username>" appear on 
“your screen,’,/, 
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*"“ type a “C, which puts a hold on what you were doing. You can the 
*n talk to the’,/,’ other person by prefacing your lines with the s 
SymMpail, | s0Or “9. 47/5 
4’ BREAK?’ ,//, 
3’ BREAK This command breaks the communication link with the 
S Gthee’ ,/,° weer.” ;77) 

FORMATC’ CONTINUE:’,//, 
7’ CONTINUE This command must be typed by the person who was in 
*terrupted’,/,’ and will take him/her back to the place of interrup 
SE1ON . * is, 
a" REFUSE? 4/7 > 
> eReEPUSE If you do not wish to be interrupted while you are 
6on the’,/,’ net, type REFUSE in your LOGIN.CMD file.’,//, 
7 MRECEIVE:* 7/7; 
8’ RECEIVE If you don’’t mind people talking to you while you 
9 are on the’,/,’ net, type RECEIVE in your LOGIN.CMD file.’,///, 
#’ WOULD YOU LIKE A DEMONSTRATION OF THE ABOVE COMMANDS (Y or N)? ” 
#,S) 

FORMAT(’ THIS CONCLUDES THE ADVANCED EXECUTIVE LEVEL COMMANDS SECT 
SUON “,/;, OF THIS TUTORIAL.” ,77)> 

FORMAT(’ Sorry to see you quit early. Good bye.’,//) 

FORMAT(’ NOTE: YOU MAY QUIT THE FOLLOWING DEMONSTRATION AT ANY TIM 
2E SIMPLY’,/,’ BY TYPING A “QQ <CR>" IN RESPONSE TO ANY PROMPT.’ ,/) 

FORMAT(’ ENTER A “Q* TO QUIT, ANY OTHER KEY TO CONTINUE: ’,5S) 

FORMAT(’ ENTER ANY KEY TO RETURN TO MAIN MENU: ’,58) 

FORMAT(1A1) 

FORMAT (////) 

END 


65 


a0 


SUBROUTINE TALK(DUM) 


Cc 
ay SSsseessssseeese2ee22=TALK SUBROUTINES =seee828 8882888288828 225522255 5E= 
Cc = DEMONSTRATE TALK/LINK COMMANDS = 
C SSSSSSPSSSSSPSSSSSSSSSS SSS SESE SS SPSS SHS SSSSSSssStSSSSseqqsqsqsqqqsqssee=°== 
Cc 
DIMENSION DEM1¢(3),INPUT (1) 
TYPE 1600 
20 NUM=0 
30 TYPE 120 
READ(OS,20S,ERR=30) DEM1 
IF ¢DEM1 (1) .EQ.°Q’ .OR.DEM1 (1) .EQ.’%q’)GO TO 60 
IF (DEM1¢(1).EQ.’TALK ’*.AND.DEM1¢(2).EQ.’TO ED’.AND.DEM1(3).EQ.’ZEL’ 
1.OR.DEM1¢(1).EQ.’talk ’.AND.DEM1¢(2).EQ.’to ed’.AND.DEM1(3) .EQ.’ze 
21*)7GO TO SO 
NUM=NUM+1 
GO TO (35,440,445) NUM 
22 TYPE 300 
GO TO 30 
40 TYPE 310 
GO TO 30 
45 TYPE 140 
TYPE 320 
READ(0OS,210,ERR=45) INPUT 
IFCINPUT (1) .EQ.’Q’ .OR. INPUT(1) .EQ.’%q’)GO TO 60 
IFCINPUT(1).EQ.’Y’ .OR.INPUT(1) .EQ.’y’)GO TO 25 
So NUM=0 
Cc 
Cc SIGN-OFF ROUTINE 
Cc 
TYPE 200 
TYPE 3s0 
READ(0S,210,ERR=SS) INPUT 
oS RETURN 
60 TYPE 340 
70 RETURN 
Cc 
Cc 
Cc Sten enennneenePORMATS FOR TALK SUBROUTINE#*# ew eee ene eee een nen 
Cc 
Cc ##es DEMONSTRATION OF TALK/LINK COMMANDS 
Cc 
£ZO0 FORMAT(’ To initiate a conversation with your coworker, Edzel, you 


1’,/,° first type SY EDZEL. If the system responds with Edzel’’s jo 
2b’,/,” number, you know he is on the net, and can now type TALK TO 
3 EDZEL.* ,/,° Give it~ try:-;/7/, Ge we 

140 FORMAT(’ What you should have typed was: TALK TO EDZEL <CR>’,//) 

200 FORMAT(’ If you are Edzel, toiling diligently away at your VDT, yo 
lu’,/,’ will see (and do) the following:’,//,’ ..the derivative of 
2squarLINK FROM <YOUR FRIEND>’,/,’ “c’,/,°’ *tHI..WANNA GET TOGETHER 
SABOUT 1630 TO DISCUSS TOMORROW’’S BRIEFING?’,/,’ ;Sure...meet you 
4in the Rat’’s Nest!’,/,’ !ROG, SEE YOU THERE. BYE.’,/,’ @G break’,/ 
Sy 
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7’ Did you notice that both parties typed either a ! or ; to cause 
*the system to’,/, 

8’ send the line?’,//, 

9’ Invoking the CONTINUE command at this point will place you back 
“to where you’,/, 

1’ were prior to the link. Such as:’,//, 

2’ @continue’,//,’ ..the derivative of squar’,//, 

3’ You can then use a “R to get the entire line to reprint.’,//, 
4’ This concludes the demonstration of TALK/LINK.’,//, 

5’ Remember to use the "7?" any time you are not quite sure what the 
* system is’,/,’ asking for.’,//) 

FORMAT (3A5) 

FORMAT (1A1) 

FORMAT(//’ NO. TRY AGAIN.’,//) 

PORMNATC//° YOU STILL BLEW IT.’ ,//7) 

FORMAT(//’ CARE TO TRY AGAIN (Y OR N)? 7’,8S) 
FORMAT(’ Sorry to see you quit early. Goodbye.’,//) 
FORMAT(C’ PRESS ANY KEY .. .’%,//) 

FORMAT (////) 

END 


on 


QAaAANAaAAN ‘om ®) 


QAaNA 


POA 


alee 


NQQAQQ 
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SUBROUTINE AMSG(DUM) 


THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE 


PROCESSOR 


DIMENSION INPUT(1),DEM1¢(1),DEM2(2) ,DEM3(3) ,DEM7(7) 


eeee INTRODUCTION TO MSG 


TYPE 1600 

TYPE 1000 

TYPE 1300 

READ(05,1400,ERR=10) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’N’ .OR.INPUT(1).EQ.’n’ )GO 


wees MSG COMMAND LEVEL COMMANDS 


TYPE 1010 

TYPE 1300 

READ(05,1400,ERR=15) INPUT 

TYPE 1600 

IF CINPUT(1).E0.°N’ .OR. INPUT (1) .EQ.’n’ GO 
TYPE 1020 

TYPE 1300 

READ(05,1400,ERR=20) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’°N’ .OR.INPUT(1).EQ.’n’ GO 


#eee COMMANDS WITHIN MESSAGE PREPARATION 


TYPE 1030 

TYPE 1300 

READ(05,1400,ERR=21) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’N’ .OR.INPUT(1).EQ.’n’ GO 
TYPE 1035 

TYPE 1300 

READ(05,1400,ERR=22) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’N’ .OR. INPUT(1).EQ.’n’)GO 


seen SEND, QUEUE OR ? 

TYPE 1038 

TYEE 1 Ss20 

READ(05,1400,ERR=25) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’N’ .OR.INPUT(1) .EQ.’n’)GO 


seee DEMO - ENTRY INTO MSG 
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TO 


TO 


TO 


TO 


TO 


To 


320 


320 


320 


320 


320 


220 


Ci — i ee ee ee 
—_— oe ee ee ee ee ee ee ee ee 


30 
s2 


35 


40 


45 


60 
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70 


NUM=0 

TYPE 1040 
READ(05,1410,ERR=30) DEM1 
TYPE 1600 


tr CDENI <1) - EO." @° -OR.DEMI (1). E@.*q° JGO.TO S20 
IF CDEM1¢(1).EQ.’MSG’ .OR.DEM1(1).EQ.’msg’)GO TO 50 


NUM=NUM+1 

GO TO (35,40,45) NUM 
TYPE 1340 

hy PE siS00 

GG TO 32 

TYPE 13350 

TYPE i500 

GO 7G sz 

TYPE 1045 

TYPE 1360 

READ (05,1400,ERR=45) INPUT 
TYPE 1600 


IF CINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’)GO TO 
Pe CINPUTC1l>).EQ.”°Y* .OR.INPUT(1)>).EQO.”y’5>GO TO 


eene DEMO - SEND 


NUM=0 

TYPE 1050 
READ(05,1400,ERR=55) INPUT 
TYPE Soo 


PP CINPUT <I>) .EO.*O” .OR.INPUT(1).EQ.%*q* )GO TO 
iPCINPUT C1). EO.°S* .OR.INPUT(C1) EQ. ”se’)GO TO 


NUM=NUM+1 

GO TO (60,65,70) NUM 
TYPE 1340 

TYPE. 1305 

Ge, TO 37 

BYPE 1350 

iVEE SISOS 

GO hOeor, 

TYPE 10355 

yas sheiale 
READ(05,1400,ERR=70) INPUT 
TYPE 1600 


PE CENPUL(1>) EO." O° .OR. INPUT<1) EO. “cq )G0) TO 
IF CINPUT (1). EQ. °Y* .OR.INPUT(1) .E@.”°y’)GO TO 


wees DEMO - CONFIRMATION 


NUM=0 

TYPE 1060 

READ (05,1400,ERR=80) INPUT 
TYPE 1600 


TFC INPUTC1).EQ.’Q’ .OR.INPUT(1).EQ.’°q’)GO TO 
Pe-GONPUT Cl) .EQ.°Y" .OR. INPUTC1).EO.%y” GO TO 


NUM=NUM+1 
Bo. 1OeCces, 50,95) NUM 
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320 
25 


320 
7S 


320 
=} @) 


320 
100 


SS TYPE i340 
TYPE 1520 
GO TO 8&2 
90 TYPE 1350 
TYPE 1510 
GO TO 82 
ao TYPE. TOGS 
TYPE 2360 
READ(05,1400,ERR=95) INPUT 
TYPE 1600 
IFCINPUT(1).EQ.°OQ’ .OR.INPUT(12) .EQ.’q’)GO TO 520 
IF CINPUT (1) .E0.’Y’ .OR.INPUT(1).EQ.’y’)GO TO 75 


Cc seen DEMO - MESSAGE PREPARATION “TO” 


100 NUM=0 
105 TYPE 1070 
107 READ(05,1450,ERR=105) DEM2 
TYPE 1600 
IF (DEM2¢€1).EQ.°Q’ .OR.DEM2(1) .EQ.’q’)GO TO S20 
IF (DEM2¢(1).EQ.’ JONES’ .AND.DEM2(2) .EQ.’KF’ .OR.DEM2(1).EQ.’ jones’ .AN 
#D..DEM2(2).EO.*k2 JGee10Ori25 
NUM=NUM+12 
GOTO (210,125,120) NUM 
116 TYPE 1340 
OP) a) ae io wa 
GO TO 107 
iS TYPE 1350 
PYPES 1515 
GO TO 107 
120 tees O7> 
TYPE 1360 
READ (C0S5,1400,ERR=120) INPUT 
TYPE 1600 
IFCINPUT(1).EQ.°Q’ .OR. INPUT(1) .EQ.’°q’)GO TO S520 
IFCINPUT (1) .EQ.’Y’*.OR.INPUT(1) .EQ.’y’)GO TO 100 


Cc eevee DEMO - MESSAGE PREPARATION “cc” 


t22 NUM=0 
130 TYPE 1080 
132 READ(05,1450,ERR=130) DEM2 
TYPE 1600 
IF CDEM2¢(1).EQ.°Q’ .OR.DEM2(1).EQ.°q’)GO TO 520 
IF (DEM2¢1).EQ.°WILLB’ .AND.DEM2¢2) .EQ.°E” 7ORSDEN2ZC!) .EQs 7 svillb sane 
«.DEM2(2).EQ.’e’)GO TO 150 
NUM=NUM+1 
GO TO (135,140,145) NUM 
iso TYPE 1340 
TYPE? lS20 
GO. Te 232 
140 TYPE 72350 
TYPE 13520 
GOTO 132 
145 TyPES1OSS 
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TYPE 1360 

READ(05,1400,ERR=145) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’°Q’ .OR. INPUT(1).E0.’%q’)GO TO S20 
LPCINPUT(1).EQ.”’Y’ .OR. INPUT(1).EQ.’y’)GO TO 125 


Cc eevee DEMO - MESSAGE PREPARATION ‘SUBJECT’ 


150 NUM=0 
Wes) TYPE 1090 
to7 READ COS,1450,ERR=1535) DEM2 
7 TYPE 1600 
EF CDEM2(1).EQ@.°Q’ .OR.DEM2(1).EQ.*q’)GO TO S20 
IF (DEM2(1).EQ.’PASCA’ .AND.DEM2(2) .EQ.’°L’.OR.DEM2(1).EQ.’ pasce’ .AND 
#.,DEM2(2) .EQ@.°1°)GO TO 175 
NUM=NUM+1 
GO TO (260,165,170) NUM 
160 TYPE 1340 
Myer. Laza 
GO TO 157 
£69 TYPE 21350 
TYPE 2925 
GO TOe21S7 
7 O TYPE 2O9a 
TYPE 2260 
TYPE 1600 
READ(05,1400,ERR=170) INPUT 
TP GINPUT(1>) -EO.°O” .OR.INPUT(1).EQ.%q*>GO TO S20 
PRCANPUTCIO SEG. Y’.OR.INPUT(1).EQ.*y*)GO TO 150 


C tans DEMO - MESSAGE PREPARATION “MESSAGE™ 


sles) NUM=0 
180 TYPE 1100 
182 READ(05,1430,ERR=180) DEM7 
TYPE 1600 
IF CDEM7(1).EQ.’°Q’ .OR.DEM7(1).EQ.°q’)GO TO S20 
IF (DEM7¢(1).EQ.°WHAT ° .AND.DEM7(2) .EQ. ’PASCA’ .AND.DEM7(3).EQ.’L LAN 
1’.AND.DEM7 (4) .EQ.’GUAGE’ .AND.DEM7(S) .EQ.’°S ARE’ .AND.DEM7(6).EQ.’ A 
2VAT” .AND.DEM7(7).EQ.”’LABLE”’ .OR.DEM7(1).EQ.’what *°.AND.DEM7(2).EQ.”’ 
3pasca’ .AND.DEM7(3).EQ.’1 lan’ .AND.DEM7(4) .EQ@.’ guage’ .AND.DEM7(5).E 
4Q0.’s are’ .AND.DEM7(6).EQ.’ avai’ .AND.DEM7(7).EQ.’lable’)GO TO 200 
NUM=NUM+1 
SO) Fo. 9¢185,190,195) NUM 
ie ba) TYPE 1340 
TYPE Las0 
GO TQ 1862 
190 TYPE 1350 
tee 13530 
GO TO 182 
ee) TYPE 21705 
TYPE 1360 
READ(0S,1400,ERR=195) INPUT 
TYPE 1600 
EeCiINPUT«.).bO. “OQ? .OR. INPUT C1) .EO.~q° 9GO TO 320 


(ea. 


210 


Pag es 


220 


Zo2 


235 


240 


245 


ITP CINPUT (1) EG. Y¥* OR. INPUT (1) EG.’ y JGo tOe17 > 
«eee DEMO - MESSAGE PREPARATION “QUEUE" 


NUM=0 

TYPE SiO 

READ(05,1400,ERR=205) DEM1 

TYPE 1600 

IPCDENIT <1) EO. ’°O* OR DENI (1) JEOe 7g 2GO TG 2Zz5 
NUM=NUM+1 

GO TO (210,215,220) NUM 

TYPE 1340 

TYPE] 12335 

GO TO 207 

TYPE 13350 

EYPE 12535 

GO TO 207 

TYPE 11135 

TYPE 1360 

READ (05,1400,ERR=220) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’%q’)GO TO 320 
IFCINPUT(1).EQ.’Y’ .OR.INPUT(1) .EQ.’y’)GO TO 200 


seen DEMO T (TYPE) COMMAND 


NUM=0 

TYPE 120 

READ(05,1400,ERR=230) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.’°O* .OR.INPUT(1).EQ. “q’)GO TG S20 
IF CINPUT(C1>).EQ.’T’ .OR.INPUT(1).EQ.’t’)GO TO 250 
NUM=NUM+1 

GO TO (235,240,245) NUM 

TYPE 1340 

TYPE 1505 

GG TG 232 

TYPE 323350 

TYPE 1505 

SO TO, 232 

TYPE S125 

TYPE 1360 

READ(05,1400,ERR=245) INPUT 

TYPE 1600 

IFCINPUT (1) .EQ.’Q’ .OR.INPUT(1) .EQ.’q’)GO TO 320 
TP CENEUT<(1>.EQ-27Y" -OR INPUT (C1) BO. y 0GO=o022> 


eeee DEMO - MESSAGE SEQUENCE COMPLETION (ONE MESSAGE) 


NUM=0 

TYPE 2130 

READ(05,1440,ERR=255) DEM1 

TYPE 16C0 

IFCDEM1¢(1).EQ.°Q’ .OR.DEM1(1)>.EQ.°q° GG TO S20 
ie (CDEM1 (1) EG.”’i4°)GO) 1O72z7> 


ties 


260 


265 


270 


282 


285 


Z20 


Zoo 


307 


SLO 


315 


S20 


NUM=NUM+1 

GO’ TOC 260, 265,270) NUM 

TYPE 1340 

TYPE 1540 

GO, TG. 257 

Px PES lLsooO 

TYPE 1540 

GO TO 257 

TYPE 1135 

fyYGES1 S60 

READ(0O5,1400,ERR=270) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.’°Q’ .OR.INPUT(1).EQ.’q’)GO TO 520 
LECINPUT (CIO. EG.“Y* ORS INPUT (C1) .EQ.”y"9GO TO 250 


eeene DEMO - H CHEADERS) COMMAND 


NUM=0 

TYPE 1140 

READ(0O5,1400,ERR=280) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’Q’ .OR. INPUT (1).EQ.’°q’)GO TO 520 
IFCINPUT(1).EQ.’H’ .OR.INPUT(1).EQ.’h’)GO TO 300 
NUM=NUM+1 

GO TO (285,290,295) NUM 

TYPE 1340 

Tye E1505 

SOTO [282 

TYPE 1350 

Ty PEVLSOS 

GO TO 282 

TYPE 1145 

TYPE 1360 

READ(05,1400,ERR=295) INPUT 

TYPE 1600 
IFCINPUT(1).EQ.°O’.OR.INPUT(1) .EQ.’%q’)GO TO 520 
IF CINPUT(1).EQ.’°Y’ .OR.INPUT(1).EQ.’y’)GO TO 275 


seee DEMO - MESSAGE SEQUENCE (:) 


NUM=0 

TYPE 250 

READ COS, 1460,ERR=305) DEM 

TYPE 1600 

TP CDEMI<1).EQ.°OQ* .OR.DEMI (C1) <2EQ.*q°56GO TO 320 
De CDENICIO «EO. °10.15° 9GO0 TO 32Z5 
NUM=NUM+1 

GO 710 <3107,3135,320) NUM 

TYPE 1340 

TYPE 1345 

GO TO 307 

TYPE 1350 

TYPE 1545 

GOTO 307 

TYPESILSS 


( 


TYPES 1 360 

READ(05,1400,ERR=320) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.’Q’ .OR.INPUT(1).EQ.’°q’)GO TO S20 
IFCINPUT(C1) .EQ.’Y’ .OR.INPUT(1) .EQ.’y’)GO TO 300 
NUM=0O 

TYPE 1160 

TYPE 1240 

TYPE 1370 

READ(05,1400,ERR=510) INPUT 

RETURN 

TYPE 12250 

TYPE 1370 

READ(05,1400,ERR=530) INPUT 

RETURN 


#“*#eePFORMATS FOR MSG SUBROUTINE @ see ete eee nent 


seee INTRODUCTION 


FORMAT ¢ ’” MSG 7/7 » 
1’ MSG is a program which allows the user to create, send, file and 
2 read’,/,’ messages (referred to also as mail). A listing below p 


3rovides the’,/,’ commands which may be used within MSG. They may 
4also be seen from’,/,’ within MSG by typing a "?" after the “<-" m 
2SG prompt.’ ,/, 

6’ The following is a sample message:’,//, 


7s (msg. # 34, 279 chars)’,/, 

8’ Mail-From: JONESKD created at 16-Oct-85 19:13:01’,/, 

= Date: 16 Oct 1985 19:13:01 EDT’,/, 

a? From: JONESKDGUSC-ISI.ARPA’,/, 

ie Subject: REQUESTED INFORMATION’,/, 

Za TO. HIDONJKGUSC-ISI.ARPA’,/, 

a ec; FLEMMINGPWOUSC-ISI.ARPA, JONESKD@USC-ISI.ARPA’,//, 
4’ Thank you very much for your quick response.’,//, 


5° The message itself is comprised of various fields, or parts. Th 
Sey are’,/,’ referred to as Date Field, To Field, From Field, Subje 
7eot Field, etc.’,/,’ Each field is entered separately, allowing the 
8 user to view the fields’,/,’ separately, such as just listing the 
9 subjects of some or all messages.’,/) 


#e#ee MSG COMMAND LEVEL COMMANDS 


FORMAT(’ MSG COMMAND LEVEL COMMANDS’ ,//, 
#*’ COMMAND Use’,//, 


1’ A Answer a message’,/, 
2 ae Back up to previous message’,/, 
oe Back up to previous message’,/, 
4° “H Back up to previous message’,/, 
ee Current message’,/, 


C 
6’ D Delete a message’,/, 

fe Exit and update message file’,/, 
9° F Forward a message’,/, 

1G Go to message number’,/, 


ee 


a 


020 


i eth Headers’ ,/, 
mie inceLlus@on of tength of header’,/, 
3” J Jump into lower fork’,/, 
4° K Koncise - provide shorter prompting’,/, 
3 an List of messages’,/, 
6’ M Move a message into a file (deletes it as a message)’,/, 
oN Next message number’,/, 
8’ O Overwrite old file’,/) 
FORMAT(’ COMMAND USE’,//, 
1* Pp Put a message into a file (leaves it as a message also)’ 
Zrly 
3° Q Quit - return to operating system without update of msg 
4file’,/, 
4’ R Read ina file’,/, 
= ee) Send a message’,/, 
6’ T Type a message’,/, 
7 go | Undelete a message’,/, 
8’ V Verbose - provides more prompting’,/, 
9’ W Write file sorted by message arrival time’,/, 
a’ X XED - enter XED’,/, 
5 shee zap profile’,/, 
Zaye Marks message as examined’,/, 
3’ - Marks message as not examined’ ,/, 
4’ (system tells you upon entry if you have “not-examined m 
Sessages")’,/, 
ie display current time and date’,/, 
Se Type the command character for its description, ? elone 
S9for summary’,/, 
oe Comment’ ,/, 
Lee N Abort message’ ,/, 
Fas Mabe 7 Message completion’,/) 


sene COMMANDS WITHIN MESSAGE SEQUENCE 


FORMAT(’ COMMANDS WITHIN MESSAGE SEQUENCE:’,//, 

1’ If you esk the system to type out a message (T type) or output h 
zeaders’,/, 

3’ (H headers), etc. the system will ask you for the message sequen 
4ce.’,/,’ Usually, all you desire is one message, so you just type 
Sthat message’,/,’ number followed by a carriage return. In some i 
6nstances you may desire’,/, 

7’ to have more than one, possibly a string of message headers or t 
8wo ’,/,’ different messages. The following describes the procedur 
Ses for various’,/,’ means of answering the <Message Sequence> pro 
MDC. sg '7 5 


1’ 1. Any single number’,/, 

PAGE A Message number range (ie number <separator> number, where se 
Sparator’,/,’ is one of the following:’,/, 

4’ COMMAND USE’,/, 

a > greater than (>20 = output msgs with number greater t 
6han 20)’,/, 

ia : through (15:20 = msgs 15 through 20)’,/, 

oe (20:15 = same msgs, but in inverse order 
oD agi 


tess FORMAT C’ COMMAND USE’ ,//, 


74 


18 


=? > mags stated (24,7 = msg 24 followed by msg 7)’,/, 
a? ESC current message’,/, 


= ih oh last sequence specified’,/, 

6’ A All messages or headers’,/, 

oi D Deleted messages or headers’,/, 
8’ E Examined messages’,/, 

= F string search of headers’,/, 

oat Ec Last message sequence’,/, 

yes N Not examined (not seen) messages’ ,/, 
Phaal I Inverse order’,/, 

3’ ‘e) Old messages/headers’,/, 

4’ R Recent messages only’,/, 

oe S string search of subject’,/, 

6’ U Undeleted messages’,/) 


seee SEND, QUEUE OR ? 


FORMAT(’ SEND, QUEUE OR ?’,//, 

1’ After you have completed typing the body of a message, which 
Zyou have’,/,’”’ signaled to the system with a "*Z", the system will 
3prompt you with a ’,/,’ “QUEue, SEND or ?". This is asking if you 
4 want the message sent (do it’,/,’ now while I wait), queued (do i 
St at the systems convenience) or ? ’,/,’ (provides help).’,/) 


envee DEMO - ENTERING XED 


FORMAT(’ NOTE: YOU MAY QUIT THE FOLLOWING DEMONSTRATION AT ANY TI 
IME, SIMPLY BY’,/,’ TYPING A "“Q* FOLLOWED BY A CARRIAGE RETURN, IN 
ZREPLY TO ANY OF THE PROMPTS.’ ,//, 
® ’ OK. Here we go. First off, we need to get from the Exec 
lutive Command level’,/,’ to the MSG command level. To do this, we 
2 type MSG after the “G" prompt,’,/,’ followed by a <CR>. Give it 
3a try. 47, 
4° See the XED portion of this tutorial for the editing commands, t 
*hey work here’,/, 

3’ as well.’,//,’ @’,3) 
FORMAT(’ What you should have typed, was: MSG <CR>“777) 


seee DEMO - SEND 


FORMAT ¢ ” MSG -- version of )07 Sep 12583 °,7, 

as Type ? for help, ? # for news’,//, 

a No new messages since file was last read on 15-Nov-85 05:16: 

S39 pa There are 23 old messages.’,/, 

a? The file is 26 disk pages long.’,//,’ <- ’,//, 

1’ This puts us at the MSG command level prompt.’,//, 

2’ Now we have a choice. We could read (T - type), send a message 

3(S - sndmsg),’,/,’ answer a message (A - answer) etc. (see availab 


4le commands above). First,’,/,’ let’’s give a try at preparing an 
2d sending a message.’,//, 

6’ (Note: During this simulation it is necessary to type a carriag 
7@ return’,/,° after your ventry). 4, 

8’ To begin, we type an "S <CR>" after the prompt to enter the mess 
Sage send’,/,’ routine. Give it @ try.”,//,° <- “,5) 


1055 FORMAT’ What you should have typed, was: S <CR>’,//) 
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1S 


wees DEMO - CONFIRMATION 


PORMAI(C” <- Sndmag fconfirm]’,//, 

1’ At this point you enter a “Y<CR>" to confirm, or a "N<CR>” to ca 
2ncell.’,/,’ <- sndmsg [confirm]’,S) 

FORMAT(’ What you should have typed, was: Y<CR>’,//) 


eevee DEMO - TO 


FORMAT<’ €C If you wish to abort back to MSG, type control-N]’,//, 
Le Oime (tn fOr onelp.. 77, 

2’ The system is now asking for you to enter the addressee of your 
smessage. ,/,° Send it to JONESKF’ ,//,° To («? for help): ’°’,S) 
FORMAT’ What you should have typed, was: JONESKF<CR>’ ,//) 


ase DENG) <=. CC 


PORMAlGomece €?7 tor help):’ ;,//, 

1’ The system is now asking who you would like carbon copies (cc) 5s 
zent to.’,/,’ Send a copy to WILLBE and to yourself (it is usually 
Sconsidered @ good’,/,’ idea to retain a@ copy for yourself).’,//,’ 
4cc (? for help) : ’,S) 

FORMAT(’ What you should have typed was: WILLBE, ‘YOUR ACCOUNT NAM 
LED <CR>* 57 /) 


enne DEMO - SUBJECT 


PORMAT(C” Subject :*,//7, 

1’ The system is now asking for a subject line for your message. L 
zet’’s give’,/,’ the message the subject of “PASCAL".’,//,’ Subject 
San, 

FORMAT(’ What you should have typed, was: PASCAL<CR>’,//) 


<= DEMO = MESSAGE 


FORMAT(’ Message (? for help):’,//, 
1’ The system is now asking you to input your message. Upon comple 
2tion of’,/,’ entering your message, you enter a “Z (control-Z). 5 
Simulate it here by’,/,* typing “2 “°“Z<CR>”. Try entering the follo 
4wing message: What pascal’,/,’ languages are avaiiable on the top 
9s-20 system.’,//,’ Message C=ston Nelo) 2 5/522 
FORMAT(’ What you should have typed, was:’,//, 
1’ WHAT PASCAL LANGUAGES ARE AVAILABLE ON THE TOPS-20 SYSTEM*2’,//) 


teee DEMO - QUEUE 


FORMAT” Q,5S,?,cCerriege return:’,/7, 

1’ You are being asked whether you desire to wait while the message 
2 is being’,/,’ sent (S), or to have the system process it at its c 
Sonvenience while you’,/,’ are free to continue with something else 
4. Tell the system to queue (Q).’,//,’ Q@,S,?, carriage return:’,S) 
FORMAT(’ What you should have typed, was: Q<CR>’,//) 


eeee DEMO - TYPE 


ey 


uh 4 @. 


FORMAT(’ @,5,?,carriage return: Queue’,//, 

1’ JONESKF -- queued’,/,° WILLBE == queuge |=... (your sccount? 
2=-—= (QUBUEa” ,/7,  “S=4,77, 

3° The system is now processing the message and has given you the M 
4SG command’,/,’ level prompt; awaiting your next command. Let’ ’s 
Sread a message. To do so0’,/,’ we enter the T (type) command.’,//, 
6’ <- ’,8) 

FORMAT(C’ What you should have typed, was: T<CR>’,//) 


eree DEMO - MESSAGE SEQUENCE (ONE MESSAGE) 


FORMAT(’ <- type (message sequence) ’,//, 

1’ The system is now asking for which message(s) you wish to read. 
2 Let’’s’,/,’ read message 14.’,//, 

3° <- type (message sequence) ’,S) 

FORMAT(’ What you Should have typed, was: 14<CR>’,//) 


eeee DEMO - HEADERS 


FORMAT(’ (msg. # 14, 299 chars)’,/,’ Mail -From: ACTION created at 
1 16-Get-85 13.13.01 .7, 

2’ Date: 16 Oct 1985 19:13:01 EDT’ ,7, ~ From: “ACTIONSCUSC-Iist nee 
3” 4 /e oe oUuUbDIJeECt: (.MSG777, — lo. (Your account)” ,/7, 
4’ A very special file in your Directory is the "MAIL.TXT” file. 
S This file’,/,’ controls your "mailbox", and therefore should nev 
Ger be deleted.’,//, 
TV’ weer ceoc- ah Ge That was message 14’,//, 
8’ Please note the significance of the above message.’,//, 
S$” NEVER DELETE THE MAIL Titer iLle. 77, 

*’ If we had not remembered the exact message number of this messag 
le, we could’,/,’ have found it with the HEADER command. We could 
2Zdo this by looking at all’,/,’ “headers”, or if we Knew its approx 
Simate number we could specify a range of’,/,’ message headers to b 
4e outputed by the system. Let’’s give this,@ try. Finet,°,/7,° sam 
Svoke the H Cheader) command.’,//,’ <- °%,8S) 

FORMAT(C’ What you should have typed, was: H<CR>’,//) 


ecene DEMO - MESSAGE SEQUENCE (:) 


FORMAT(’ <- Headers (message sequence) ’,//, 

1’ The system is now asking which headers you wish to see. Tell it 
2 10 through’,/,’ 15, since we believe this is where our message of 
3 interest lies.’,//, 
4’ <- Headers (message sequence) ’,S) 


FORMAT(’ What you should have typed, was: 10:15<CR>’,//) 
FORMAT ¢’ 10 15 Aug Remind Daemon WHO WAS FIRST’,/, 
Ales 11 17 Aug Gary Poock <POOCKGUSC- “EYE'dentification’,/, 


27 EP > Sep Tom Brown <BROWNTJ@GUSC EE MADE SIMPLE FOR C3’,/, 
5G is S$ Oct To: FRANKSDZSUSC-ISICA IF YOU SAY S0O’,7, 

4’ 14 16 Oct ACTION MSG 77; 

== iS 17 Oct To: SMITHSLGUSC-ISI CAR PROPERSAD I LReE 472. 

6’ From the above we find that the message of interest is number 14 
es Note also’,/,’ the other information presented. We can tell th 


ie 


Bat we received messages 10,’,/,’ 11, and 13 and that we sent messa 
Sgec isvand i3.°,/7) 


seme SIGN-OFF ROUTINE 


FORMATC’ This completes the tutorial on MSG. Remember to use the 


1°?" any time you’,/,’ are not quite sure what the system is asking 
2 for.” ST) 


FORMAT(’ Sorry to see you quit early. Good bye.’,//) 
FORMAT(’ WOULD YOU LIKE TO CONTINUE (CY or N)?’,S) 
FORMAT(C’ WOULD YOU LIKE A DEMONSTRATION OF THE ABOVE COMMANDS (CY o 


Lew) 2 7, 22 


FORMAT(’ No. Try again.’,//) 

FORMAT © You etill don-°“t have it right.’,//>? 
FORMAT(C’ CARE TO TRY AGAIN CY or N)?’,8) 
FORMAT(’ ENTER ANY KEY TO RETURN TO THE MAIN MENU: ’,S5S) 
FORMAT C1A1) 

FORMAT (1A3) 

FORMAT (3A5) 

FORMAT €7AS5) 

FORMAT (1A2) 

FORMAT (2A5) 

FORMAT (1A5) 

FORMAT(//,’°’ @’,S) 

FORMALC//,° <-" 7S) 

FORMAT(//,° <- sndmsag [confirm]’,S) 

PORMAT (77; TO <? #or help): *, =) 
PORMAT(C//7, ce €7 tor help): *,s) 
BORMAUG/7,° subject: *°,S) 

FORMAT(//,’ message (? for help): ’,S8) 
FORMAT(//,’ @,5S,? carriage return ’,5) 
FORMAT(//,’ type (message sequence) ”,S) 
FORMAT(//,’ headers (message sequence) ’,5) 
FORMAT(////) 

END 


fe 
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Oe ul®. 
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ph 
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SUBROUTINE AXED(CDUM) 


=THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE “XED" 


— ee eee eee eee eee ee ee ei ei es 
se eee ee es lr es es se lL le ll 


DIMENSION INPUT(1),DEM1(1),DEM2(2) ,DEM3¢3) ,DEM7(7) 
seee INTRODUCTION 


TYPE 1600 

TYPE 1000 

TYPE 1300 

READ (05,1400,ERR=10) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.’°N’ .OR.INPUT(1).EQ.’n’)GO TO S20 


eaee XED COMMAND LEVEL COMMANDS 


TYPE 1010 

TYPE 1300 

READ (05,1400,ERR=15) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’N’ .OR.INPUT(1).E8&.’n’)GO TO 520 
TYPE 1020 

TYPE 1300 

READ(05,1400,ERR=20) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.’N’ .OR.INPUTC1)> BO?’ n’ )GO TG S20 


sees COMMANDS WITHIN INSERT AND APPEND 


TYPE 1030 

TYPE 1320 

READ(05,1400,ERR=25) INPUT 

TYPE 1600 
LFCINPUT(C1).EQ-°N’ -OR- INPUT (1) .EQ. n’ 9GO TG 320 


eeee DEMONSTRATION OF THE XED COMMAND 


NUM=0 

TYPE 1040 

READ(05,1410,ERR=30) DEM1 

TYPE 1600 

LP CDEM1(1).EOQ.*O" -OR.DEM1C1) EO=7q {GOs ten azce 
IF CDEM1(1).EQ.’XED’ .OR.DEM1(1).EQ.’xed’)GO TO SO 
NUM=NUM+1 

GO TO (35,40,45) NUM 

TYPE 1340 

TYPE1500 

GO TO 32 

TYPE 1350 

TYPE 13500 


80 


TEXT EDITOR 


COTTe. 32 

TYPE 1045 

TYPE 1360 

TYPE 1600 

READ(O5,1400,ERR=45) INPUT 

TYPE 1600 

IF CINPUT(1) .EQ@.’°Q’ .OR.INPUT(1).EQ.’q’)GO TO 520 
PR CINPUT<(1>).EQ.”Y’ .OR.INPUT(1) .EQ@.”y’“)GO TO 25 


zene DEMONSTRATION OF THE READ COMMAND 


NUM=0 

TYPE 1050 

READ(05,1400,ERR=55) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’)GO TO S20 
IP CINPUT C1) .EG.“kK- OR. INPUT(C1> .EQ.7"r*)GO TO 75 

NUM=NUMN+1 

GO TO ¢60,65,70) NUM 

TYPE 1340 

TYPE 1303 

GO-TO 37 

EYRE =i3350 

TYPE 1505 

GO" TO 57 

PYRE 1052 

TYPE 1360 

READ(05,1400,ERR=70) INPUT 

TYPE 1600 

PeCONPUG CL) «pGie G~ .OR. INPUT (1) .EQ.’q°)GO TO 320 
TP CINPUT(1)>) .EFQ.’Y’ .OR.INPUT(1) .EQ.’y’>GO TO SO 


zewee DEMONSTRATION OF READING IN A FILE 


NUM=0 

TYPE 1060 

READ(05,1420,ERR=80) DEM3 

TYPE 1600 

Pee Maw) .hol. Wl .OR.OEMoC1l) -EQ.°q° GO TO. S20 
PeeWee Sk eG. INVIS” (AND. DEMNS(2>-EOQ@. ~1BLE SAND. DEMNS(3> -E@.* .1*.0 
CR PenoClo soba. anvas .AND.DENS(2) EG." ,able’ ~AND.DENS<S) EQ.” .1°*)GO0 
2 TO 100 

NUM=NUM+1 

co ee Ceo, 20,95) NUM 

TYPE 1340 

TYPE 1510 

GO TO 82 

(sds ales) ©) 

TYPE 13510 

GO TO 82 

TYPE 1065 

TYPE 1360 

READ(05,1400,ERR=95) INPUT 

TYPE 1600 
PPeiGENPUt1). EO. O° -OR. INPUT (15> -FG.°q° 260 TO 320 


81 


107 


£L© 


i22 


120 


135 


140 


i143 


says 


IFCINPUT(1)9.EQ.’Y’ .OR.INPUT(1).EQ.”y’>»GO TO 75 


seen DEMONSTRATION OF THE LIST COMMAND 


NUM=0 

TYPE, 1070 

READ(05,1400,ERR=105) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.’°Q’ .OR.INPUT(1).EQ.’q’ GO 
IFCINPUT(1) .EQ.’°L’ .OR. INPUT(1).EQ.’1’° GO 
NUM=NUM+1 

GO TO (110,115,120) NUM 

TYPE 1340 

TYPE son 5 

GO TO 107 

TYPE 1350 

TYPES oo 

GO TO 107 

TYPE 1075 

TYPE 1360 

READ(05,1400,ERR=120) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’ GO 
IF CINPUT(1) .EQ.”Y’ .OR.INPUT(1) EO. ’y” )GO 


«eee DEMONSTRATION OF THE VIEW COMMAND 


NUM=O0 

TYPE 1080 

READ(0O5,1400,ERR=130) INPUT 

TYPE 1600 

IFCINPUT(1).&Q.’°Q’ .OR.INPUT(1).EQ.’q’ 9GO 
IFCINPUTC1) .EQ.°V* .OR.INPUT<C?) . 20.’ v’* 9GG 
NUM=NUM+1 

GO TO (135,140,145) NUM 

TYPE 1340 

145) al sals) 

GOOF 32 

TYPE 350 

TYPES Lois 

GORE. s2 

TYre 108s 

TYPE 1360 

READ(05,1400,ERR=145) INPUT 

TYPE 1600 

IFC INPUT (1) .EO.’O’ .OR. INPUT(1).E0O. ’gq’*>GO 
IFC INPUT(1).5O.’Y”* ,OR.INPUT(1> £0. "yy 5GG 


eeee DEMONSTRATION OF THE INSERT COMMAND 


NUM=0 

TYPE 1090 

READ(OS,1400,ERR=155) INPUT 

TYPE 1600 

IF CINPUT(1>.EQ.’°Q’ .OR. INPUT(1).EQ.’q’ GO 


82 


Tes520 
Tor 125 


1G) = 20) 
TO 100 


TO 320 
TO 150 


TO S20 
TO"1L25 


TO 320 


IFCINPUT(1) .EQ.’I’ .OR.INPUT‘(1).EQ.’i’)GO TO 175 
NUM=NUM+1 
GO TO (160,165,170) NUM 
160 TYPE 1340 
TYPE 1520 
GO 4710 157 
165 TYPE? 1350 
TYPE 1320 
GG.TO 157 
170 TYPE 1095 
TYPE 1360 
READ(0O5S,1400,ERR=170) INPUT 
TYPE 1600 
IFCINPUT(1) .EQ.’Q’ .OR. INPUT(1) .EQ.’q’)GO TO S20 
TFCINPUT(1) EO.”*Y° .OR. INPUTC1).EQ.”’y’)GO TO 150 


Cc eevee DEMONSTRATION OF INSERTING MATERIAL 


72 NUM=0 
180 TYPE 1100 
fo2 READ(05,1430,ERR=180) DEM7 
TYPE 1600 
DPC DEM? Cl) 60. O° .OR.DEM7(1).EG."°q’)GO TO Szo 
TE <DEM7(1)-EQ- “use t”* .AND-DEM7(2) -EQ.*he “~S* -AND.DEM7(3).EO.°ET FI 
ie AND.DEM7 (4) .EQ.”LE VI” .AND.DEM7(S) .EQ.’° SIBLE” .AND.DEM7(6G).EQ.°” 
2com’ .AND.DEM7(¢(7).EQ.’mand.’)GO TO 200 
NUM=NUM+1 
GON TO C18S,190,195) NUM 
isS TYPE 1340 
irre LoZzo 
GGyTe 182 
290 TYPE 1350 
Tires ioe. 
GO’ TO 182 
ite Fs] Pree iOS 
TYPE “1360 
READ (05,1400,ERR=195) INPUT 
TYPE 1600 
IF CINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’)GO TO S20 
PP CINPUT <1) .EQ:”*¥’ -OR.~INPUT(1).EQ.’y°)GO TO 175 


Cc e2ee DEMONSTRATION OF END OF FILE COMMAND 


200 NUM=0 
Fs Oh) di @ see Ee, 
207 READ(05,1440,ERR=205) INPUT 
TYPE 1600 
Te CINPUT (1) .EOQ.“Q”’ -OR.INPUTC1)-EQ.’q’)GO TO S20 
TPCINPUT(1).EQ.°2*.OR.INPUT(1)>.EQ.*2’)GO TO 225 
NUM=NUM+1 
GO TO (210,215,220) NUN 
210 TYPE 1340 
frre 1 ooO 
GO {TO 207 
21> TYPE 1330 


218 


TYPE 15330 
GO TO 207 
mew) TYPE. ¢225 
TYPE 1360 
READ(05S,1400,ERR=220) INPUT 
TYPE 1600 
IF CINPUT(1) .FQ.’Q’ .OR.INPUT(1).EQ.’q’)GO TO 320 
IFCINPUT(1) .EQ.’Y’ .OR.INPUT(1) .EQ.’y’)GO TO 200 


Cc anne DEMONSTRATION OF KILL COMMAND 


22> NUM=0 
230 TYPE 11220 
Zou READ(0S,1400,ERR=230) INPUT 
TYPE 1600 
IFCINPUT(1).EQ.’Q’ .OR.INPUT(1) .EQ@.’q’)GO TO S20 
IFCINPUT(1).NE.’K’ .AND.INPUT(1).NE.’k’)GO TO 232 
TYPEV F123 
READ (05,1400,ERR=230) INPUT 
IF CINPUT(1).EQ.°Q’ .OR.INPUT(1) .EQ.’q’)GO TO S20 
IFCINPUT(1> .EQ.’1’ .OR.INPUT(C1).EQ.”% “)GG To 250 
Pe Ws NUM=NUM+1 
GO TO (235,240,245) NUM 
Zoe TYPE 1340 
TYPE, 2535 
GOSTOe232 
240 TYPE 1350 
TYPE 13535 
GO TO 232 
245 Wogei= shah ees) 
TYPE (2360 
READ(05,1400,ERR=245) INPUT 
TYPE 1600 
IPCINPUT (1) .EQ.’OQ’ .OGR.INPUT(1) .EO).° qq’) GG TGy520 
IF CINPUT(1).EQ.’Y’ .OR.INPUT(1).EQ.’y’)GO TO 225 


Cc seee DEMONSTRATION OF THE WRITE COMMAND 


250 NUM=0 
Z2o° TYPE 92230 
257 READ(05,1400,ERR=255) INPUT 
TYPE 1600 
IFCINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’)GO TO 320 
IF CINPUT(1) .EQ.’W’ .OR.INPUT(1) .EQ.’w’)GO TO 275 
NUM=NUM+1 
GO TO (260,265,270) NUM 
260 TYPE 1340 
TYPE. “1305 
GO T9257 
260 TYPE 13350 
TYPE 13505 
GO 1@e257 
270 TYPE 1135 
TYPE 1360 
READ(05,1400,ERR=270) INPUT 


84 


TYPE 1600 
IFCINPUT(1).EQ.’°Q’ .OR.INPUT(1).EQ.’°q’)GO TO S20 
PTRCINPUI (1) .EQsy¥°.OR.INPUT(CIDW.EG. *y’)GO TO 250 


Cc see2 DEMONSTRATION OF WRITING TO A FILE 


275  NUM=O0 
280 TYPE 1140 
282 READ(05,1450,ERR=280) DEM2 

TYPE 1600 

IF (DEM2(1).EQ.’°Q’ .OR.DEM2(1).EQ.’q’)GO TO 520 

IF (DEM2(1).EQ.’INVIS’ .AND.DEM2(2).EQ.’. IBLE’ .OR.DEM2(1).EQ.’invis’ 

1.AND.DEM2(2).EQ.’.ible’)GO TO 300 

NUM=NUM+1 

GO TO (285,290,295) NUM 
285 TYPE 1340 

TYPE 1540 

EO-TOnee2 
290 TYPE 1350 

TYPE 1540 

Ger To. 282 
295 TYPE 1145 

TYPE 1360 

READ(05,1400,ERR=295) INPUT 

TYPE 1600 

IF (INPUT(1).EQ.’Q’ .OR.INPUT(1).EQ.’q’)GO TO 520 

TE<TNPUTCI-EQ.°Y” .OR. INPUT (1).EQ@.’y°oGO TO 275 


Cc see2 DEMONSTRATION OF THE ZAP COMMAND 


300 NUM=0 
SOD TYEE TSO 
307 READ(O5,1400,ERR=305) INPUT 
TYPE .1600 
IF CINPUT<(1).EQ.’Q’ .OR.INPUT(1).EQ.’q’)GO TO 3520 
TRCINPUl (Cd) .5GQ.”° 2° -OR. INPUT(1)>..EQ.°2°) GO JO S235 
NUM=NUM+1 
CO 716210, 315,320) NUM 
310 TYPE 1340 
iy PE 1505 
GO TO 307 
SLO TYPE 13350 
1 =a, bse =) 
GOP 1.307 
320 TYeeei loo 
TYPE 1360 
READ(05,1400,ERR=320) INPUT 
TYPE 1600 
IF CINPUT¢(1).EQ.’°Q’ .OR.INPUT(1).EQ.’q’)»GO TO 520 
PP CINPUT<C1) .-EQ.” Y*.OR.INPUT¢C1).EQ.*y*2GO TO 300 


seee DEMONSTRATION OF THE APPEND COMMAND 


ano 


S25 NUM=O 
S30 TYPE 1160 


oe. 


332 READ(05,1¢00,ERR=330) INPUT 
TYPE 1600 
IFCINPUT(1).EQ.’°Q’ .OR.INPUT(1).EQ.’q’)GO TO 3520 
IFCINPUT(1).EQ.’A’ .OR.INPUT(1) .EQ.’%a’)GO TO 350 
NUM=NUM+1 
GO TO (335,340,345) NUM 
335 TYPE 1340 
TYPE ole 
GO TO 332 
340 TYPE 1350 
TYPE 1515 
GO TO 332 
345 TYeSE 116GS 
TYPE 1360 
READ(05,1400,ERR=345) INPUT 
TYPE 1600 
IFCINPUT(1) .EQ.°OQ’ .OR.INPUT(1).EQ.’q’)GO TO 3520 
IF CINPUT(1).EQ.°Y’ .OR.INPUT(1).EQ.’y’)GO TO 325 


Cc eeee DEMONSTRATION OF KILLING MORE THAN ONE LINE 


350 NUM=O 
355 TYPE 1170 
356 READ(05,1440,ERR=355) DEM1 
TYPE 1600 
IF(DEM1(1).EQ.’Q’.OR.DEM1(1).EQ.’q’)GO TO 520 
IF (DEM1(1)>.NE.’3K’ .AND.DEM1(1).NE.’3k’)GO TO 357 
TYPE 1173 
READ(05,1400,ERR=355) INPUT 
TYPE 1600 
EP CINPUT (1) EQ). “@” -OR.INPUT(1) .EQ. a’ GO) TO S20 
IF CINPUT (1) .E@o7l" .OR.ENPUT(1) .EQ.” “\GORTG@egs75 
357 NUM=NUM+1 
GO TO (360,365,370) NUM 
360 TYPE 1340 
TYPE 1515 
GO TO 356 
365 TYPE 1350 
TYPE 1515 
GO TO 356 
370 TYPE 1175 
TYPE 1360 
READ(05,1400,ERR=370) INPUT 
TYPE 1600 
IF CINPUT(1).EQ.’°O’ .OR.INPUT(1).EQ.’q’)GO TO S20 
IFCINPUT(1).EQ.’Y’ .OR.INPUT(1).EQ.’y’)GO TO 350 


Cc sene DEMONSTRATION OF THE JAM COMMAND 


372 NUM=0 
380 TYPE 1180 
382 READ(05,1440,ERR=380) DEM1 
TYPE 1600 
TPCDEMIX1)>,FO.707 .ORo-DEMI (I> - EO. “a” GO slOa20 
TE CDEMI (1) .EG.”33” .OR.DEM1 (1) EQ.’ .ORS DEM? (1) (EG. 370 -OR bene 


86 


1.EQ.’3’)GO TO 400 
NUM=NUM+1 
GO TO (385,390,395) NUM 
385 TYPE 1340 
TYPE 1545 
GO TO 382 
390 tree L3aso0 
IVPEWLosS 
GO TO 382 
Soo 22 PE itlesS 
TYPE 2360 
READ(05,1400,ERR=395) INPUT 
TYPE 1600 
IF CINPUT(1).EQ.°Q’ .OR.INPUT(1).EQ.’q’»GO TO S20 
IF CINPUT C1) .EO.’Y’ .OR.INPUT(1>.EQ.’y’)GO TO 375 


Cc #eee DEMONSTRATION OF TYPING OTHER THAN CURRENT LINE 


400 NUM=0O 
405 DYPE sl i30 
407 READ(05,1440,ERR=405) DEM1 
TYPE 1500 
IF (DEM1(1).EQ.’Q’ .OR.DEM1(1) .EQ@.’°q’)GO TO S20 
PEICDEM1 C2). EO." ST” ..OR.DEMI C1) -EQ.*3t“9G0) TO’ 425 
NUM=NUM+1 
GO TO (410,415,420) NUM 
410 TYPE 1340 
1p 213 heh: 
GO TO 407 
415 TYPE S50 
tiyvee iol. 
GO TO 407 
420 TYPE L195 
TYPE 1360 
READ(05,1400,ERR=420) INPUT 
TYPE 21600 
IF CINPUT(1).EQ.’Q’ .OR. INPUT (1).EQ.’q’)GO TO 520 
IFCINPUT(1).EQ.’Y’ .OR.INPUT(1).EQ.’y’)GO TO 400 


Cc eaee DEMONSTRATION OF TYPING MORE THAN ONE LINE 


425 NUM=0O 

430 TYPE 1200 

432 READ(05,1400,ERR=430) INPUT 
iY PEs 1600 
IF CINPUT(1) .EQ.’O’ .OR.INPUT(C1) .EQ.’°q’)GO TO S20 
IF CINPUT(1) .EQ9.’°2’)GO TO 450 
NUM=NUM+1 
GO TO (435,440,445) NUM 

435 TYPE 1340 
TYPE 1550 
GO TO 432 

440 TYRE 13350 
iy PE 135350 
GO TO 432 
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445 TYPE “12035 
TYPE=1260 
READ(0S,1400,ERR=445) INPUT 
TYPE) 1600 
IFCINPUT(1).EQ.°Q@’ .OR.INPUT(1) .EQ.’q’)GO TO S20 
IFCINPUT(1) .EQ.’°Y’ .OR.INPUT(1).EQ.’y’)GO TO 425 


Cc eene DEMONSTRATION OF THE EXIT COMMAND 


450 NUM=0 
455 TYPE, 2210 
457 READ (05,1400,ERR=455) INPUT 
TYPE 1600 
IF CINPUT(C1) .EQ.°Q@’ .OR.INPUT(1) .EQ.’q’)GO TO S20 
IFCINPUT(1) .EQ.°E’ .OR.INPUT(1).EQ.’e’)GO TO 475 
NUM=NUM+1 
GO TO (460,465,470) NUM 
460 TYPE 1340 
TYPE 1505 
GO TO 457 
465 TYPE 1350 
TYPE 1505 
GO TO 457 
470 TY PEs1215 
TYPE 1360 
READ(05,1400,ERR=470) INPUT 
TYPE 71600 
IF CINPUT(1).EQ.°Q*% .OR.INPUT(1) EQ. °q JGe sie s2z0 
IFCINPUT(1).EQ.’°Y’ .OR.INPUT(1).EQ.’y’)GO TO 450 


Cc eseee DEMONSTRATION OF FILE STORAGE BEFORE EXITING 


475 NUM=0 
480 TYEE 1220 
482 READ(05,1450,ERR=480) DEM2 

TYPE 1600 

TP CDEM2Z(1).EQ.°O* OR .~DEMN2(1)  EQ.-q JGO 1G sZ0 

IF CDEM2(1).EQ.”’ INFO.” SAND. DEM2(2) EG. 7 FILE’ ORSDEMNZ ieee. oes 

1,AND.DEM2(2) EQ] t211e 7GO TGmas> 

NUM=NUM+1 

GO TO (485,490,495) NUM 
485 TYPE 1340 

TYPE 1540 

GO TO 482 
490 yer oi s50 

TYPE 1540 

GO TO 482 
495 TYPES1 225 

TYPE 1360 

READ(05,1400,ERR=495) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.°Q’ .OR.INPUT(1) .EQ.’°q’)GO TO S20 

ih CINPUT(1) .E0.°Y* .OR.INPUT(1) .EQ@.”y")GO 710 475 
499 bYPE “i230 
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eeee SIGN-OFF ROUTINE 


S00 TYPE 1240 
TYPE 1370 
READ(05,1400,ERR=S10) INPUT 
Sie, RETURN 
220 TYPE 1250 
TYPE 1370 
READ(05,1400,ERR=S30) INPUT 
30 RETURN 


*##eeeePORMATS FOR XED SUBROUTINE ## te tee wee ee 
##ee INTRODUCTION 


COO FORMAT(’ MED? (3/7, 
1’ XED is a text editor; specifically a line editor. It allows you 
2 to both’,/,’ create and edit text, one line at a time. Entry wnt 
30 XED is by typing XED’,/,’ after the “@" prompt, followed by a <C 
@k>.°,/7, Definitions: * ,77,; 


3S’ Text Buffer - The text buffer is your current working space.’ 
ey ae 

7 Peinte Butter - The area where material you have "KILL"ed is 

& placed. Note,’,/,’ only the material from the L 
S9AST KILL operation is retained.’,//, 

*’ Command Level - The level you are at when you enter XED; distin 
lguishable by’,/,’ the >" prompt.°,/77; 

2’ Line Number - Line numbers are assigned by XED to each line i 
Si “Vourecext*,7 5.” buffer, starting with line numbe 
4r one. The numbers are for’,/,’ reference while 


Swithin XED and are not stored into the file.’,//) 
ween XED COMMAND LEVEL COMMANDS 


O10 FORMAT(C’ XED COMMAND LEVEL COMMANDS’ ,//, 


*”’ COMMAND USES “Gs” ,7/, 

se ~ APPEND To enter text after the current line.’,/, 

Mar oS - BACK UP Create back up file.’,/, 

See - CHANGE To modify current lines.’,/, 

4’ E = a7, ey Exits XED, after file save, back to system le 
DV CL psa: wr - FIND Locates a specific letter, word or ph 
6rase.’,/, 

7’ G - GROUP Joins current line with following line.’,/, 
S* I - INSERT Inserts text before current line.’,/, 

= ee | - JAM Jams the contents of Print Dump after the cur 
Prene, LIne. 5:75 

1 =e Oe e Places current or specified line (s) into Pri 
2m ct. UUMp. 4s 5 

IC ee =I ST Outputs entire text buffer without line numbe 
Grn (5 / 5 

S’ P - PRINT DUMP Prints contents of Print Dump. ’,/, 

6’ Q = oUt Tr Quits XED, without file save, back to system 
7Jlevel.’,/, 

8’ R = READ Reads into XED the contents of a file.’,/, 
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1020 


S425 - SEARCH Like Find except it looks for all occurrences 
wt Are 


FORMAT(’ COMMAND USE? 475 

pea = TYPE Types out current line.’,/, 

2°y - VIEW Displays the current and following 15 lines.’ 
So 
4’ W - WRITE Writes current contents of text buffer to fil 
DG. o/s 
6’ X - EXCHANGE Searches for specific text and replaces it wi 
7th enother. 47, 7a - ZAP Puts your entire file into the 
& Print Dump.’,/, 
= Ne - SWITCH DUMP Swaps contents of the Print and Text Buffers 
#.°,/, 

LS - TYPE CONTXT Types current line and five lines before and 
Zatter. 7; 
oy = TYPE Types the current line.’,/, 
4° % - SNDMSG Utilizes current text buffer as body of messa 
~9GG.°s/> 
Sy 1S = LAST LINE Moves you to the last line of the file.’,/, 
Toes - COMMANDS Displays available commands.’,/, 
oo = TYPE Types the next line.’,/, 
9” *Q - ABORT Aborts partially completed commands.’,/, 

ie Boe - FORMAT Right justifies paragraph.’,//) 


sees COMMANDS WITHIN INSERT AND APPEND 


FORMAT(’ COMMANDS WITHIN INSERT OR APPEND:’,//, 


1’ COMMAND USE*,/7, 

2. “DEEVKE,) Deletes the letter to the left of the cursor. 
3’,/, 

4’ “R - RETYPE Retype the current line, leaving cursor at th 
Ve end .* ,/, 

67 4x - KILL LINE Kills the line to the left of the cursor.’,/, 
7° 2 - DELETE WORD Deletes the word to the left of the cursor.’, 
8/, 

be Oe - RETURN Returns you to the command level.’,//, 

*’ COMMANDS WITHIN CHANGE:?’,//, 

LS - SKIP Skips to a specified character.’,/, 

2D = OBL hes Deletes the character over the cursor.’,/, 

Sie Ae - INSERT Inserts characters.’,/, 

4’ E - END Moves cursor to end of line.’,/, 

re is Sa - ABORT Aborts any changes you have made.’,/, 

Ce: - COMMANDS Types out available commands.’,/, 

7’ B - BREAK Breaks line in two at cursor position.’,/, 

8’ <CR> - RETURN Return to XED command level.’,//) 


eeen DEMO - ENTRY INTO XED 


FORMAT(C’ NOTE: YOU MAY QUIT THE FOLLOWING DEMONSTRATION AT ANY TI 
IME, SIMPLY BY’,/,’ TYPING A “Q* FOLLOWED BY A CARRIAGE RETURN, IN 
2ZREPLY TO ANY OF THE PROMPTS.’,//, 

* ’ OK. Here we go. First off, we need to get from the Exec 
lutive Command level’,/,’ to the XED command level. To do this, we 
2 type XED after the "G@" prompt,’,/,’ followed by a <CR>. Give it 
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Sa eer ese eS) 
FORMAT(’ What you should have typed, was: KED UCR? 477) 


eevee DEMO - THE R (READ) COMMAND 


FORMAT(’ XED Version 4.2 (30-Aug-82) 7/5 os ont / > 
1’ This puts us at the XED command level prompt.’,//, 


2’ Now we have a choice. We can begin entering text for a new f 
Sile or we can’,/, 
4° edit text from an existing file. First let’’s try editing an 


sexisting file.’,/, 
6’ To bring in the existing file, we type an "R" after the prompt. 
7 (Note that’,/, 
8’ during this simulation, you will need to type a <CR> after ente 
SrinGg the.ctirgt 4/7, 


*’ letter of each command. In XED itself, this is not required). 
1S0o now we type’,/, 

Zp 7k 26 CR? Ve eaettes the ~“s"° ‘prempt. The system will respond by 
3completing the’,/, 

4’ command and then asking you what file you wish to insert. Le 


St 7s “Give it cay y/ , 
Ge aEry. 7 lp os pe 
FORMAT(’ What you should have typed, was: R <CR>’,//) 


twee READING IN A FILE 


FORMAT(’ read’,/,’ Input File:’,//, 

1’ At this point you type in the “FileName.FileType.FileNumber” of 
2the file’,/,’ you wish to edit. Lee? ae edit “INViS.1SBLE.17. 777, 
oo laput. bales” ,5) 

FORMAT(’ What you should have typed, was: INVIS.IBLE.1 <CR>’,//) 


eens DEMO - THE L (LIST) COMMAND 
FORMNAT(* & LINES’ ,/,° 21:°,//, 


1’ From the above, we see that the file has been read into the text 
Ze butter, is” ,7, 


3’ eight lines in length and the current line is line 1. Now we wi 
4sh to take a’,/, 
3S’ look at this file. Two of the commands we can use to do this ar 


ee the “VIEW'’,/, 
*«’ and “LIST commands. Give the “LIST command a try.’,//, 
6’ REMEMBER; ONLY TYPE IN THE PIRST LETTER FOLLOWED BY A <CR>.* ,/ 
fig ae aS) 
FORMAT(’ What you should have typed, was: L <CR>’,//) 


“eee DEMO - THE V (VIEW) COMMAND 


BORMA? C°@iist’ ,//7,° INVISIBLE: “7, 

1’ Files that have been marked requesting archival are said to be 
ZINVISIBLE"”,’,/,’ meaning that these filenames will not show up in 
Sthe usual @ Directory’,/,’ listing unless a special subcommand is 
4given: CGinvisible(files only).’,/,’ Note: Although a file does 
Snet. snow Up ain the regular directory listing, °~,7,° it is stiil “in 
6 your directory and will not really go away until the Archive’,/,’ 


zl 


7 has been run (on weekends). If you prefer that the filename rema 
8ins visible,’,/,’ use the "SET FIEL VISIBLE" command.’,///, 

9’ Reading the above file, we note 4 mistake in the last line. We 

*know this is’,/,’ line eight, because the file is only eight lines 
1 long (we could also count the’,/,’ lines, but this would be a ver 
2y laborious task ina large file with a mistake’,/,*’ somewhere in 

3Sthe middle). How then are we to find and correct our mistake?’,/, 
4° Let’’s try typing out the contents of the file with the "VIEW" c 
DOmMMANG.° 5/7, Ls eS? 

FORMAT(’ What you should have typed, was: V <CR>’,//) 


eenme DEMO - THE I “INSERT? COMMAND 


FORMAT(C’ view’,//, 

1’ Il*INVISIBLE’,/,’ 2*Files that have been marked requesting archiv 
2al are said to be “INVISIBLE"”,’,/,’ 3*meaning that these filenames 
3 will not show up in the usual @ Directory’,/,’ 4¢*listing unless a 
4 special subcommand is given: G@@invisible(files only).’,/,’ S#Not 
se: Although a file does not show up in the regular directory list 
6ing,’,/,* 6#"it is still in your directory and will not really go a 
7way until the Archive’,/,’ 7*has been run (on weekends). Lf you (Dp 
8refer that the filename remains visible,’,/,’ 8*use the “SET FIEL 
SVISIBLE” command.’,//, 

*’ This allows us a very easy way to determine the line number. No 
lw, we wish to’,/, 
2’ correct FIEL to FILE. We retype the line, “INSERT“ing it before 
3 tine Sy or, 7; 
4° “APPEND” ing it after line 7. Let’’s fix line 8 using the INSERT 
Demerhod.* ,//, 

6° Sa) 

FORMAT(’ What you should have typed, was: BE RO) Se ae 


seen DEMO - INSERTING TEXT 


FORMAT(C’ insert’,//,’ 8#’,//, 

1’ Now we are ready to retype the line. (Remember the “R, “W, ~* 
2X and Del Key’,/,’ commands. In fact, make a few mistakes of your 
3 own while typing in the’,/,’ correct line, and then use these com 
4mands to make correctione. Just insure’,/,’ that you have the lin 
[e completely right before typing the <CR>).’,//,’ 8#’,S) 

FORMAT(’ What you should have typed, was:’,//,7’ use the “SET FI 
1LE VISIBLE” command.’ ,//) 


DEMO - THE —Z COMMAND 


FORMAT(’ 9e’,//, 

1’ Now we have corrected line eight, but have been left in posi 
2tion to enter’,/,’ material into line nine. Since we do not desir 
Se to enter material in this’,/,’ line, we type a “Z.’,//, 

4’ (FOR THE PURPOSES OF THIS TUTORIAL, JUST USE A 2)’,//, 

5S’ 8#use the "SET FILE VISIBLE" command.’,/,’ 9#’,S) 


1115 FORMAT(’ What you should have typed, was: Z <CR>’,//) 


Cc 
C 
Cc 


seen DENG = THE K (KILL) COMMAND 


oe 


sabre) 


123 
i> 


FORMAT ¢ ’” err ee 

1’ Remember that what we have just done is insert a new line eigh 
z2ee That means’,/,’ that the old line eight has become the new lin 
3e nine. However, we no longer’,/, 

4’ want this line at all. To get rid of it we use the KILL command 
S- To KILL’,/,’ line 9, we start by ensuring that line nine is the 
6 Gurrent line, which in’ ,/7,° fect it ia. If we were not sure, we 
7would type a “S <CR>", which would make’,/,’ line 9 the current li 
8ne. To KILL two lines, we type the K after the "“:"’,/,’ prompt, l 
Jet the system respond with “ill, and then type the number “1",’,/ 
*,’° indicating that we wish to KILL one line. Note: the default fo 
ir the KILL’,/,’ command is “1", therefore it need not be typed. 0O 
Zhe oer rad of ine 9.°, 7/7, Glee) 

BORMAN C//,. Ook) “7S 

FORMAT(C’ What you should have typed, was one of the following:’,// 
LS K <CR> followed by a 1 or blank and a <CR> or’,/, 

2’ xk <CR> follwoed by ail or blank and a <CR>.’,//) 


aneee - THE W CWRITE) COMMAND 


FORMATC’ 83’ ,//, 

1° The above indicates that you have “KILL"ed line 9. Did you real 
2ize that’,/,’ there were four possible ways you could have given t 
She “KILL* command in’,/,’ this case? Specifically, they are:’,//, 
4’ SKILLS REELED SRLEL Ki LG. 
S’ Now that we are done with this file, we wish to save it, but do 
6not wish’,/,*’ to leave XED. Therefore, we use the WRITE command. 
7 Go heads ’;//,°  %* 7s) 

FORMAT(’ What you should have typed, was: W <CR>’,//) 


wane -' WRITING TO A FILE 


FORMAT(’ write’,/, 

lo SGuUepuL. Pile: *.,/ 7s 

2° We are being asked for the file we wish the material in the text 
3S butter’,/7,° to be written. Send it “rosINVIsS. LSLE’ ;77, 

4° Output File:’,S) 

FORMAT(C’ What you should have typed, was: INVIS.IBLE <CR>’,//) 


eee DEMO = TRE 2 «ZAP. COMMAND 


PORMawGe INVISs.I BLE. 2°, 7, 16 lines’ ,/,° <$° 57% 

1’ The system has filed the material for use, yet left us both with 
2in XED and’,/,’ within the file we were editing. Note that the sy 
Sstem has given this file’,/,’ a file number of “2", indicating tha 
4t there was one previous file by the’,/,’ same Name and Type.’,//, 
1° Now let’’s say we are finished with this file but wish to enter 
2material into’,/,’ another file. We could use the QUIT or EXIT co 
Smmands, but then we would have’,/,’ to re-enter XED. It’’s much e 
4asier, and timelier, to just “ZAP the material ’,/,’ in the text 
=sbutter Cie KILL it). Give ait a@ shot!’ ,/7,° <:* ;S) 


1155 FORMAT(’ What you should have typed, was: 2 SicRO” 7,77) 


Cc 
C 
Cc 


«eee DEMO - THE A (APPEND) COMMAND 


ye 


1160 


1i7s 
17S 


1S 
1200 
1205 
C 
Cc 


FORMAT(’ zap’,//, 

1’ Good! Now we have an empty text buffer. Let’’s try entering so 
2me original’,/,” text. This time use APPEND to get into the text 
Sentry mode.’,//,’ 1:3°,S8) 

FORMAT(’ What you should have typed, was: A <CR>’,//) 


e222 DEMO - ENTERING TEXT 


FORMAT(’ append’,/,’ 1#’,//, 

1’ Now we are ready to enter text. Let me do you a favor and enter 
2 some for you.’,/,’ Note how at the end of a line, I type a <CR> a 
3nd the system provides the next’,/,’ line number for us.’,//, 
4’ 1*This tutorial does not explicitly cover a few of the commands, 
S such as FIND,’,/,’ 2#GROUP, and SEARCH. You should be able to fi 
6gure these out for yourself, if’,/,’ 3*with. Do this from the XED 
7 command level - ie at the “:* prompt.’,/,’ 4*not, try the HELP co 
8mmand. That is, type H and the command you need help’,//, 

9’ Looks like I got the order of the last two lines mixed up! How 
*=do we fix’,/,’ this? Easy, we can KILL line three, this will put 
1lthe contents of line three’,/,’ into the Print Buffer and line fou 
2r will become line three. Then we ensure’,/,’” that line 3 is the 
3Scurrent line and JAM the contents of the Print Buffer back’,/,’ in 
4to the text buffer. Remember, the JAM command works like the APPE 
SND command,’,/, 

6’ it places the material in the line AFTER the current line. Go a 
7head and KILL’,/, 

8° line 3247/7. Ol: ,2) 

FORMAT(//,’ 1s:kill ’,S) 

FORMAT(C’ What you should have typed, was:’,/,’ 3K <CR> <CR> or 3K 
1<CR> 1 CCR Sy) 


seee DEMO - THE J (JAM) COMMAND 

PAGINA iG we Distress 7a 

12 hele go ahead and JAM in the material from the print buffer.’,//, 
Be ae What you should have typed, was: 3J <GR> or 7l..<CR>’ 77) 
enxee DEMO - THE T (TYPE) COMMAND 


FORMAT(’ jam’,/, 


1’ 4*with. Do this from the XED command level - ie at the "“:** prom 
Deine J» 

3’ Very good! Now let’’s see if we got it right by typing out line 
4s three and’,/,’ four. This can be done by using the VIEW command 


>, the LIST command or the’,/,’ TYPE command. Similarly, the TYPE 
6command can be used to type out each line’,/,’ separately or both 
7together. To type them both, we first specify the “current’,/,’ 1 
8ine number™ (3) then issue the TYPE command (T) and then the numbe 
Sr of lines’,/,’ we wish typed (2). Give it -amtry. 7, /7,* i — >) 
FORMAT(’ What you should have typed, was: 3T <CR>’,//) 
FORMAT(//,° “Iietype—-} >? 
FORMAT(’ What you should have typed, was: 2 <CR>’,//) 


eene DEMO - THE E (EXIT) COMMAND 


De 


C 
1210 


FORMAT(’ 3*not, try the HELP command. That is, type H and the com 
lmand you need help’,/,’ 4*#with. Do this from the XED command leve 
21S) ot SUNen st DT OMbDG. p77 5 
3’ Now that we have things the way we want them, we’’re done. Note 
Sequ1 C4. serOuUan. If we issue the QUIT command at this point, we 
> will leave XED as’,/,’ desired, but we will also loose the materi 
6al. We either need to first WRITE’,/, 
7’ the contents into a file and then quit, or use the EXIT command. 
8 The EXIT’,/,’ command allows us to write what is currently in th 
Se text buffer into a file’,/,’ before releasing us from XED. (Not 
*e; You could also use the “C command.’,/, 
1’ This will take you to the Executive level, but you would lose th 
*e material in’,/, 
2’ the text buffer, unless your next command is CONTINUE. This wil 
#1] place you’,/, 
#’ back at the point you were at). To use the EXIT command, we typ 
ee the "E"’,/, 
3’ at the XED command level prompt. Go ahead.’,//,’ :’,5) 

FORMAT(’ What you should have typed, was: E <CR>’,//) 


eevee DEMO - WRITING TO A FILE (WITH EXIT) 


FPORMATC” ‘exit’,/,° Output Files’, //7, 

1’ See! The system needs the name of the file to store the materia 
2a SLOre 4/7, 1c in tne into.tile 4/77,” Output File: ,S) 

FORMAT(C’ What you should have typed, was: INFO.FILE <CR>’,//) 


ee2ee COMPLETION 


FORMAT’ INFO.FILE.1 !New Generation!’,/,’ 4 lines’,/,’ @’,//, 
1’ The system has stored the material for you and placed you back a 
2t the Executive’,/,’ level.’,//) 


eeee SIGN-OFF ROUTINE 


FORMAT(C’ This concludes the XED portion of this tutorial. Remembe 
lr to use the "?" to’,/,’ find the available command, and ""HELP Com 
2mand Name" to find out how to use a’,/,’ particular command.’,//) 

FORMAT(’ SORRY YOU HAVE A HOT DATE AND HAVE TO LEAVE SO SOON.’,//) 

PORMAT(~ WOULD YOU LIKE TO CONTINUE CY or Nd?’ ,5) 

FORMAT(’ WOULD YOU LIKE A DEMCNSTRATION OF THE ABOVE COMMANDS (CY o 
nee ogee \ i aaa — 3 

FORMATC: No. Try again.” ,//> 

PORMAT (” You still deon’’t have it right.’,//) 

FORMATC” CARE TO TRY AGAIN ‘(Y or N)?’ ,S) 

FORMAT(’ ENTER ANY CHARACTER TO RETURN TO THE MAIN MENU: ’,5) 

FORMAT(C1A1) 

FORMAT(1A3) 

FORMAT (3A5) 

FORMAT (7AS) 

FORMAT(C1A2) 

FORMAT (2A5) 

FORMATC/7, ° 6’? S) 

FORMAT CS 5° 3° ,S) 


ve 


FORMAT(//,* 2£NPUT FILE: ae 
FORMAT (A); 137552 
FORMAT(//,’° 82’°,S) 

FORMAT ©/7, “ae 2 >) 
FORMAT(//,° 94-35) 
FORMAT(//,° 95 “Ste 
FPORMAT(/7,  JOUTPUT FILE. 7 =) 
FORMAT(//,° 357,535) 

FORMAT (C77, D230 YPE 7 =) 
FORMAT(////) 

END 
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QAAaAAD aAQ 


Qa0 


POAaAN 


so. 


40 


45 


SUBROUTINE AFTP(DUM) 


= ee ee a a ee ee Ste RO Lh === ———— == = = = = = = = = ee Se SS 


= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE 


ll — ln lel — ll dl — oe nn nn nando — dn 
_— oe ie ee ee ee eee eee ie ee ee ee eee eee i 


DIMENSION INPUT(1),DEM1¢(1),DEM3(3) ,DEM4(4) 
senee INTRODUCTION TO FTP 


TYPE 1600 

Tree LOCO 

Tree 1300 

READ(05,1400,ERR=10) INPUT 

TYPE 1600 
ERCINPUT(C1).&G.°N*.OR.INPUTC1).EQ.’n*)GO TO S20 


seee FTP COMMANDS 


1 ds een. 

TYPE 1300 

READ(05,1400,ERR=25) INPUT 

TYPE 1600 
IFCINPUT(1) .EG.’N’ .OR.INPUT(1).EQ@.’n’)GO TO 320 


seee DEMO - ENTRY INTO FTP 


NUM=O0 

TYPE 1040 

READ(0S,1410,ERR=30) DEM1 

TYEE 1600 
PeCDEMI(1) .EG.*° O° .OR.DEMI (1) -EQ@.°q’)GO TO S20 
TEeCDEN?PC1>.EG.” FTP” .OR.DEM1(1).EG.°f£tp*>+GO TO SO 
NUM=NUM+1 

GO TO (35,40,45) NUM 

TYPE 1340 

TYPE 1500 

GO TO 32 

TYPE 13350 

TYPE 13500 

GO 10 Sz 

TYPE 1045 

TYPE 1360 

READ(0S,1400,ERR=45) INPUT 

TYPE 1600 

EeeGENPUT (1 ).EO0.’Q"* .OR. INPUT (C1).EG@.°q°>GO TO 320 
EFGENPUT C1) .EG.°Y”’ .OR.INPUT(C1).EG.”*y’)GO TO 25 


waee DEMO - CONNECTING TO A FOREIGN HOST 
NUM=0O 


TYPE 10350 
READ(0S5,1420,ERR=55) DEM3 


a7 


"FTP 


PROTOCOL 


60 


65 


79 


85 


90 


= hs) 


TYPE 1600 

IF CDEM3(1).EQ.*Q% .OR.DEM3(1).EOQ.°%q° JGG TO S20 

IF (DEM3(1).EQ.’CONNE’ .AND.DEM3(2).EQ.’CT IS’ .AND.DEM3(3) .EQ.’IE’ .O 
1R.DEM3(1).EQ.’conne’.AND.DEM3S(2).EQ.’ct is” .AND.DEMS(3) .EO. “ae Jee 
2 TC 7a 

NUM=NUM+1 

GO TO (60,65,70) NUM 

TYPE 1340 

TYPE 1505 

GO TC 57 

TYPE 1350 

TYPE 2>05 

GO TO 57 

TYPE 1055 

TYPE 1360 

READ(05,1400,ERR=70) INPUT 

TYPE 1600 

IFCINPUT(1).EQ.’Q’ .OR.INPUT(1) .EQ.’q’)GO TO 520 

IF CINPUT C1) .E@.”Y° -OR- INPUT (1) (EG. y JGe, FO 30 


eeee DEMO - LOGGING INTO AN ACCOUNT ON A FOREIGN HOST 


NUM=O0 

TYPE 1060 

READ (05,1420,ERR=80) DEMS 

TYPE 1600 

IF CDEM3S(1).EOQ.° G .OR DEMS (1) 2EO. qq (Ges Gwazo : 
IF (DEM3¢(1).EQ.’LOG S’.AND.DEM3(2).EQ.’REGNI’.AND.DEM3(3).EQ.’F 666 
1’.OR.DEM3S(1>).EQ.’log s’ .AND.DEMNS(2) .EQ@.”*regni’ “AND. DEMS (Ss). Ea. 
266’ .OR.DEM3(1).EQ.’LOGIN’ .AND.DEM3(2) .EQ.” SREG’ .AND.DEMS(3)> EG > 
SIF 6’ .OR.DEM3(1).EGQ@.’login’.AND.DEM3(2).EQ.’ sreg’ .AND.DEM3(3) . EG) 
4’nif 6’)GO TO 100 

NUM=NUM+1 

GO TO (€385,90,55 0 2NUN 

TYPE 1340 

TYPE 1510 

GO TO 82 

TYPE 1350 

TYPES T5210 

GO TO 82 

TYPE 1065 

TYPE 1360 

READ(05,1400,ERR=95) INPUT 

TYPE 1600 

IF CINPUT<(1).EOQ.’OQ’ .OR.INPUT(1).EQ.°q- GCG TO .S20 

IF CINPUT(1).EQ.’°Y’ .OR.INPUT(1). EQ.” yy JGO TG v7.5 


weve DEMO = SENDING 4,5 LEE 


NUM=0 

TYPE 1070 

READ (05,1470,ERR=105) DEM4 

TYPE 1600 

IF (DEM4(1)>.EQ.’O’.OR.DEMN4(1) ..EQ. “q’ 3G@ TC S20 

IF (DEM4(1).EQ.’SEND °.AND.DEM4(2) .EQ. *’HOMEW’ .AND.DEM4(3) .EQ.”’ORK.E 


Ge 


1’ .AND.DEM4(4) .£Q.’XE’.OR.DEM4(1).EQ.’send ’.AND.DEM4(2).EQ.’homew’ 
2-AND.DEM4(3) .EQ.’ork.e’ .AND.DEM4(4) .EQ.’xe’)GO TO 125 
NUM=NUM+1 
GO 7O5«110,115,120) NUM 
110 TYPE 1340 
TYPE 13510 
GO FO 107 
Tid EYEE or S50 
TYPE 1IS10 
GOP TOsiO7 
ZO TPE WO7S 
TYPE 1350 
READ(05,1400,ERR=120) INPUT 
TYPE 1600 
TP CINPUT(1) EQ." G@" OR.INPUT<(1)> .EQ.°q’sGO TO 320 
PE CiINPUT Cl) -bGo x -OR- INPUT C1) .EQ.“y“)GO TO 100 


Cc DEMO — RETRIEVING A FILE WITH FTP 


125  NUM=O0 
130 TYPE 1080 
132 READ(OS,1470,ERR=130) DEM4 
TYPE 1600 
IF (DEM4(1).EQ.’Q’ .OR.DEM4(1) .EQ.’q’)GO TO 520 
IF (DEM4(1).EQ.’°GET W’.AND.DEM4(2).EQ.’°TGGT.’ .AND.DEM4(3).EQ.’1 TTG 
1’. AND.DEM4(4).EQ.’G.1’.OR.DEM4(1).EQ.’get w’.AND.DEM4(2).EQ.’tggt. 
2’ .AND.DEM4(3).EQ.’°1 ttg’.AND.DEM4(4) .EQ.’g.1’)GO TO 150 
NUM=NUM+1 
GO TO (135,140,145) NUM 
135 TYPE 1340 
TYPE 1510 
Go 16 132 
140 TYPE 1350 
TYPE 1510 
GO T0132 
145 TYPE 1085 
TYPE 1360 
READ(05,1400,ERR=145) INPUT 
TYPE 1600 
IF CINPUT(1).EQ.’Q’.OR.INPUT(1).EQ.’q’)GO TO 520 
TeCINPUT C1) FG.°¥*.OR. INPUT (1) .FO.%y2)GO TO 125 


Cc see" DEMO - CLOSING A CONNECTION 


1350 NUM=0 

13S TYPE 1090 

t2>7 READ COS,1410,ERR=155) DENI 
1xYPE 1506 
POEM. eG. O° .Ok DENI (1) .6O. “q°3GO. TO 320 
Pe CDE Md Cio FO.” BYE OR. DEMNIC1) .FO. bye" )GO. TO 175 
NUM=NUM+1 
GG 71O0°<1650,165,170) NUM 

160 TYPE 1340 
Lure 13510 
SOT Os1S7 


99 


165 


170 


182 


185 


190 


i935 


TYPE) 23350 

TYPES LO 

GO TO" 1357 

TYPE 10935 

FYPE = S60 

READ(05,1400,ERR=170) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.°Q”* .OR.INPUT(1).EQ.%q*)GO TC 320 
IFCINPUT(1) .EQ.’Y’ .OR.INPUT(1).EQ.’y’)GO TO 150 


«sss DEMO - LEAVING FTP 


NUM=0 

TYPE 1100 

READ(05,1460,ERR=180) DEM1 

TYPE 1600 
ITFCDEMi(1).EQ.7O°2OR.DEMI (1) EO. *q GU 707520 
IF (DEM1¢(1).EQ.’QUIT’ .OR.DEM1¢(1).EQ@.“quit’)GO TO 200 
NUM=NUM+1 

GO TOG (165,150,255) NUM 

TYPE 1340 

TYPE T1202 

GG 1G 182 

Hy d's) ab Sos 13) 

TYPE 1505 

GO TO 182 

TYPE SILOS 

iy PE SoO 

READ(05,1400,ERR=195) INPUT 

TYPE 1600 

IF CINPUT(1) .EQ-* OQ" .OR. INPUT Ci) 2EOQ. gq’ GG 1G) 520 
IP CINPUT(1> EQ.“ YOR; INPUT (1) EO. “%y")GO TO 7s 
NUM=0 

TYPE 1210 


SIGN-OFF ROUTINE 


TYPE 1240 

TYPE 1370 
READ(05,1400,ERR=510) INPUT 
RETURN 

TYPE (i2s0 

TYPE 32370 
READ(05,1400,ERR=530) INPUT 
RETURN 


##et#eeeeaenrORMATS FOR FTP SUBROUTINE # eke ete tee 


###« TNTRODUCTION 


O00 FORMAT <¢’ FTP - FILE TRANSFER PROTOCOL” 7/7, 
1’ FTP is a program employed to transfer files around the net. Thi 
2s can be done’,/,’ from within the same host or between two differ 
Sent hosts. It does necessitate’,/,” that you have access to a dir 


86, 


4ectory on each host (the directory which has the’,/,’ material you 
S desire and the directory you wish the material to be trensferred’ 
657 eon. 5 //, 

7’ The following prompts are unique to FTP:’,//, 

8° FTP> FTP command level prompt.’,/, 

9” USC-ISIE.ARPA> Foreign host command level prompt.’,//) 


eeee FTP COMMANDS 


FORMAT(’ The following commands are peculiar to FTP.’,/, 
1’ Command Use’ ,/, 


2’ FTP Invoke the FTP protocal.’,/, 

3° CONNECT Connects you from the local host (the one you logged 
2 int6Groto the’ 7/7, 

= Hi foreign host (the one you are trying to get to).’,/, 
S&S SEND Sends a file from your local account to the remote a 
7VeEeCount. ./, 

8’ GET Retrieves a file from the remote account to your loc 
Sel account. 57; 

#’ BYE Disconnects you from the foreign host.’,/, 

1’ DISCONNECT Same as BYE’,/, 

2’ QUIT Leaves FTP’,/, 

Ss -EXLT Same as QUIT’ ,//) 


DEMO = SENTERING ETP 


FORMAT(C’ NOTE: YOU MAY QUIT THE FOLLOWING DEMONSTRATION AT ANY TI 
IME, SIMPLY BY’,/,’ TYPING A "“Q*" FOLLOWED BY A CARRIAGE RETURN, IN 
ZReEeuyY TC ANY GF THE PROMPTS.” ,//; 

3’ Here we go. To begin with, we need to get from the Executive Le 
4vel to the FTP’,/,’ Command Level. We do this by entering "FTP" a 
wtter the. “C" .prompt. Go ahead.’,/,’ @’,S) 

FORMAT(’ What you should have typed, was: FTP<CR>’,//) 


*eee DEMO - CONNECTING TO A FOREIGN HOST 


FORMAT(’ USC-ISI.ARPA FTP user process 6(405)-4’,/,’ FTP>’,//, 

1’ Very good. Now we are at the FTP Command Level prompt. At this 
2 point, we’,/,’ want to connect to the desired foreign host. Let’ 
es %use ISITE." ,/7, 

4° FTP>’ ,S) 

FORMAT(’ What you should have typed, was: CONNECT ISIE<CR>’,//) 


se#ee DEMO - LOGIN AT FOREIGN HOST 


FORMAT(’ Connection opened (Assuming TYPE L 36, MODE 3, STRU P)’,/ 
1,’ < USC-ISIE.ARPA FTP Server Process 52(27)-7 at (today’’s date & 
2 timed’, //; 

2 s USC-ISIESARKRPA>’ ,//, 

4° Our connection is now open and we are ready to log into an accou 
Snt on’,/,’ this foreign host. Unlike the ISIA host, other hosts ma 
6y require the’,/,’ login to begin with either LOGIN or LOG. Let’’ 
7s use the SREGNIF account’,/,’ which has @& password of 666 (the nu 
8&8mber of the beast).’,//, 

So” “USC=-I5STE.ARPA>* ,S) 


G4 


1085 


FORMAT(’ What you should have typed, was:’,/, 
5 Og LOG SREGNIF 666 or LOGIN SREGNIF 666’,//) 


onvee DEMO - SENDING A FILE 


FORMAT(C’ OK. Now we are ready to send a file to the foreign host. 
2 We do this with’,/,’ the SEND command followed by the filename w 
3e are sending followed by the’,/,’ filename it is to have at the r 
4emote host. NOTE: If a file name for the’,/,’ foreign host is no 
St specified, it will keep the same name. Let’’s send’,/,’ HOMEWOR 
SGKeEXe. gts» 
7° USC=ISIE.ARPA®” ,S) 

FORMAT(’ What you should have typed, was:’,/,’ SEND HOMEWOR 
1K.EXE<CR> or SEND HOMEWORK.EXE HOMEWORK.EXE<CR>’,//) 


eeee DEMO - RECEIVING A FILE 


FORMAT(’ < Paged Store of <SREGNIF>HOMEWORK.EXE.1;P777700;AUDR sta 
lrted.’,/,’ < Transfer completed. S512 (36) bytes transferred.’,/, 
2°. USC-ISIE ARPA 37, 

3’ Very good. We are almost done with this, but before we leave, 1 
eet’’s try’,/, 

4’ GETting file WTGGT.1 to a local file of TTGG.1. Unfortunatly, w 
“ee must’,/, 

3’ enter both file names in this case (there is no default).’,//, 
7] USG-TSIESAKPA> {oP 

FORMAT(’ What you should have typed, was: GET WTGGT.1 TTGG.1<CR>’, 
pare A>. 


weee DEMO - LEAVING FTP 


FORMAT(’ < Paged retrieve of <SREGNIFOWTGGT.1.1 started.’,/,’ < Tr 
lansfer completed. 15 (36) bytes transfered.’,//, 

2’ OK. Now we are ready to quit. Leave the foreign host with BYE. 
3°77, 
4" VUSC-ISIE.ARPA>: ,S) 

FORMAT(’ What you should have typed, was: BYE<CR>’,//) 

FORMAT(’ FTP>’,//,’ Now leave FTP with the quit command.’,//,’ FTP 
Le 

FORMAT(’ What you should have typed, was: QUIT<CR>’,//) 

PORMAdG6¢ VG" ,//, Which puts us back at the Executive Level comma 
ina prompt of our siocal host.*,77) 


wenwe SIGN-OFF ROUTINE 


FORMAT(’ This concludes the FTP portion of this tutorial. Remembe 
lr to use the "?" if’,/,’ you are not sure what the system is askin 
296 for 7,77) 

FORMAT’ Sorry to see you quit early. Good bye.’,//) 

FORMAT(” WOULD YOU LIKE TO CONTINUE CY erate] 7) 

FORMAT(’ WOULD YOU LIKE A DEMONSTRATION OF THE ABOVE COMMANDS (CY o 
ir ND 2° Ss) 

FORMAT(’ EGAD, Late night last night, or what?’,//) 

FORMAT(C’ Youtstili don’’t have it right. 477?) 

FORMAT(’ CARE TO TRY AGAIN (CY or N)?’,S) 


Or 


PORMNAL« ENTER@an:y KEY TO RETURN TO THE MAIN MNENU’ 5) 
FORMAT CLA) 

FORMAT (1A3) 

FORMAT (3A5) 

FORMAT (1A5) 

FORMAT (4A5) 

FORDATC//, (mG ,S) 

FORMAT(//,’ FTP>’,S) 
BORMAIC/7, ~ USC-ISIE.ARPA>’* ,s) 
BHORMATC//// >) 

END 


iO 
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SUBROUTINE ATN(DUM) 


SSess==SS=222====TELNET CTND SUBROUTINE S==sS = 5 SS aS SS ee 
= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE “TN* PROGRAM = 


aww ewewewewe eae wee ewe’ were eweewew ewww ws" VMK FF wT wZ—ZTEBEe2ewZZ BF FT TB ew—=—OeN—_ s8F w— KP KM wwT SIOZ swZ |B wT MO ssw swswee se Ss sos = = 
Se ee ee ee ee ee ee ee ee oe ee ee se ee ee se ee ee ee ee eee Se ee ee ee se ae se ee eS ee ee ee ee ee ee ee ee UL 


DIMENSION INPUT(1),DEM1¢(1),DEM2(2) 
INTRODUCTION TO TN 


TYPE T600 

TYPE 1000 : 

TYPE 1300 

READ(0S5,1400,ERR=10) INPUT 

TYPE 1600 
IFCINPUT(1) .EQ.’°N’ .OR.INPUT(1).EQ.’n’)GO TO 520 
TYPE TO1o 

READ(05,1400,ERR=25) INPUT 

EY PES 1600 

LF CINPUT(1).EQ.°N* OR. INPUT (1) -EQ- nn“ JG0 107520 


wees DEMO - ENTRY INTO TN 


NUM=0 

TYPE 1040 

READ(05,1430,ERR=30) DEM2 

TYPE TEO0 

IP CDEM2(1).EQ.°OQ* OR .DEN2ZC1) EQ. "q 3GO) 1Gr52z0 
IF (DEM2(1).EQ.°TN IS* .AND.DEM2(2) .E0.” IE" OR. DENZ Cl) EG) one ea 
TDS DEN2(2) EO." 12 GO 770 50 

NUM=NUM+1 

GO TO (35,40,45) NUM 

TYPE 1340 

TYPE 1500 

GO 10°32 

TYPE isso 

TYPE. 1500 

GO, TS) 32 

TYPE 1045 

TYPE 1360 

READ(0OS5,1400,ERR=45) INPUT 

TYPE 1600 

TPCINPUT< 1) .60.°Q 2OR. INPUT ()) EG. -¢g- >GOr TC S20 
IF CINPUT (1) .EQ.”° YY" .OR. INPUT GI) (EG. yy 5GO  1082— 


eevee DEMO - SHOW COMMAND 


NUM=0 

TYPE 1050 

READCOS, 1430,,ERR=55) DENZ 

TYPE 1600 

LP CDEMN2 (1) .EG@>”Q@”° -OR. DEMZ(1).EG@. "aq )GO 10 S20 

IF CDEM2¢(1).EQ.’SHOW ’.AND.DEM2(2).EQ.’ME’ .OR.DEM2(1).EQ.’show ’.AN 


104 


SO apace 
Oo 


O 
Oo 


LDS DEMN2< 2). 5O.7me GO TO 75 

NUM=NUM+1 

GO TO (60,635,70) NUM 

TYPE 1340 

TYPE 1500 

GO" 1T0 37 

TYPE 1350 

TYPE VISOO 

GO TO 357 

TYPE 1055 

TYPE 1360 

READ(05,1400,ERR=70) INPUT 

TYPE 1600 

SBE CINPUT (CT) “2G. °O°.0OR.INPUT(1)>.EQ.°q’)G@ TO S20 
iP CONE Vig fa i OR  INPUT( I> -EQ.”y°)GO TO So 


saee DEMO - LEAVING ">>" LEVEL OF TN 


NUM=0 

TYPE 1060 

READ(05,1460,ERR=80) DEM1 

TYPE 1600 

PP COEMICT) EO. G° .OR.DENT<1).EQ.°q’)GO TO S20 
TF CDEMI<1) EQ. LOGO’ .OR.DENI<(1).EQ.’loge”’+)GO TO 100 
NUM=NUM+1 

GO TO (835,30,935) NUM 

TYPE 1340 

TYRE2 1300 

GG) 7.082 

TYPES 1350 

TYPE LOO 

GO TO 82 

TYPE 1065 

TYPE 1360 

READ (05,1400,ERR=95) INPUT 

TYPE 1600 
LPCINPUTCiD .EO.°O° .OR. INPUT ¢€1).E@.*q@”’)GO. TOG S20 
IFCINPUTCI) .EQ.”Y°.OR.INPUT<1> .EQ.°y’)GO TO 75 


seee DEMO - LEAVING TN 
NUM=0 
eeesx SIGN-OFF ROUTINE 


TYPE 1240 

TYPE 1370 
READ(COS,1400,ERR=510) INPUT 
RETURN 

TYPE L250 

TYPE "i370 
READ(05,1400,ERR=530) INPUT 
RETURN 


105 


000 


ene neenre FORMATS FOR TN SUBROUTINE ® #8# ee eee eee eee eee TORO 
veene INTRODUCTION 


FORMAT ¢’ TN CTELNET)’ ,//, 

1’ TN iS a program or system which allows a4 user on one host to com 
2municate’,/, 

3’ with another host. It actually appears as though you logged int 
40 the’,/, 
3’ foreign host directly from a “TAC” rather than through another h 
6ost. The’,/, 
7’ system also has the advantage of making your control characters 
*do what you ’,/, 

8’ expect them to do, even if the control characters on the foreign 
* host are ’,/, 

9’ different.’,//, 

*’ Using TN is actually quite simple. All you need do is type "TN 
» ¢<host>” after’,/, 

1’ the Executive Level prompt followed by a carriage return. If a 
*pathway to the’,/, 

2’ foreign host is available and the host is up, you will connect t 
*o the foreign’,/, 

3’ host ready to log into a directory. When you are finished, simp 
«iy tog out of 77, 
4’ the directory, then type “EXIT” after the “‘TN>” prompt. You’’re 
=" "bsaek in your’ ,/, 

> sown directory. ~*,//) 


zseee TN COMMAND CHARACTERS 


FORMAT(C’ It should be noted, that since all control characters are 


1 meant to’,/, ’ behave on the foreign host as they would on the 
2 locel host, you cannot use’,/,* “*C™ to return to your cwn Execuc 
3ive Level. There is a control character’,/, 


4’ provided for this purpose: ““C - control * followed by aC, but 
#*you should’,/, 

3’ really log out of the foreign host properly, if possible.’,//, 
6’ Would you like a brief demonstration of TN (Y or N)?’,S8) 


eevee DEMO - ENTERING TN 


FORMAT’ OK. First type TN and the name of the host you want to g 
1o to. We’’1ll use’,/,’” ISIE for this demonstration.” ,//, Wd ,-- 
FORMATC’ What you should have typed, was: TN ISIE<CR>’,//) 


veene DEMO - LOGGING IN 


FORMATC’ Trying... Open’,//, 

i” “ISIE-SYSTEM-E, TOrPS-20 Monitor 3<7420 1.77 

2’ There are 37+10 jobs and the Load Average is i266 43-477 

3’ After login, type "HELP ?"” followed by a carriage return for’,/, 
4° a@ list of on-line help topics.°,/7, G37 4% 


3’ Looks familiar eh? Now we can log into a directory on this hos 
et. Use’ ,/, 
6’ the directory “SHOW” with the password "ME". Did you realize th 


* 


10k 


*at you need’,/, 

8’ not use the command “LOG" or “LOGIN’ to log on to an account? A 
SLM ehaet vis”, /, 

*’ really required is the account name and the password. uve 2. he 
itecws/, O° 7S) 

FORMAT(’ What you should have typed, was: SHOW ME<CR>’,//) 


vene-e DEMO - SHOW COMMAND 


FORMAT’ Job Si ON tty234 (date and time)’,/, 

1’ Previous LOGIN: (date and time)’,/, 

2° “OPS: <SHOW> ,/, 

3’ 37 Pages assigned’,/, 

4° 200 Working pages, 200 Permanent pages allowed’,/, 

>’ 15638 Pages free on PS:, 25354 pages used.’,/, 

6’ No new mail exists’,/, 
7’ With clothes new are the best, with friends the old are best.’,/, 
o- “End of LOGIN. CMND.17 ,-77,"* GS" 377, 

9’ Very good. Well I promised this would be brief; brief it will b 
“e. While’,/,”’ you are on the foreign host, everything works just 
14s it would on your own’,/,” host. OR. Let’’s go home. First we 
Zz OGsOuUte ~//7;, 97, 5) 

FORMAT(’ What you should have typed, was: LOGO<CR>’,//) 


anes DEMO! - LEAVING THE *>>* LEVEL OF TN 


FORMAT’ @’,//,’ Welcome home. Note: If when you had entered TN 
*initially, you had entered’,/, 

1’ “TN <CR>* you would have gotten the TN> prompt. This is fine. J 
“ust give the’,/, 
2’ host name at this point. Upon logout you will be left at the TN> 
SOCOM DGs 7 » 

3’ Another EXIT here and you are back home.’,//, 
4’ This concludes the TN portion of this tutorial. Just remember t 
she -~°C*,/7, 

>’ control character if you get stranded while in TN.’,//) 

FORMAT’ Sorry to see you quit early. Good bye.’,//) 

FORMATC”’ WOULD YOU LIKE TO CONTINUE CY or N)?7’,5) 

FORMAT(’ What a severe case cf fumble fingers you have.’,//) 
SURMmALA” YOu sti don ~t- have 1c righe.*,/77) 

FORMAT-@eeCARE TO TRY AGAIN CY or Nd?" ,S) 

FORMAT (* ENTER ANY KEY TO CONTINUE’ ,sS) 

FORMAT(1A1) 

FORMAT (2A5) 

FORMAT (1A4) 

FORMAT(//,° G’ ,S) 

FORMAT(//,° TN>’,S) 

FORMAT(////) 

END 


Oly) 
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SUBROUTINE APHOTO(DUM) 


se2sstcz2=2=2:DPHOTO SUBROUTINE ===8 222227222 S25 22 225252222 228288 522222S252=2 
= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE “PHOTO*’ PROGRAM = 


et ee ee ee ee ee ee ee ee ee ee Ne ee ee ee ee ee 2 ee ee ee ee ee ee 
EE ee ee ee ee ee ee ee ee ee ee ee ee se hl me 


DIMENSION INPUT(1) 
zseee INTODUCTION TO PHOTO 


TYPE. 1600 

TYPE 1000 

TYPE 1300 

READ(0S,1400,ERR=10) INPUT 

TYPE 1600 

IF CINPUT(1)-EO.’O”" .OR.INPUT (2) EO." a 2GGnN 1G eco 


«e#ee VIEWING / CHANGING / BEEPS 
PYPETLO2O 
«nee SIGN-OFF ROUTINE 


TYPE 1240 

TYPE 2370 
READ(05,1400,ERR=510) INPUT 
RETURN 

TYPE 12350 

TYPE 1370 

READ (05,1400,ERR=S530) INPUT 
RETURN 


S#eeseeseeeeenePORMATS FOR PHOTO SUBROUTINE Se eee etn nn ne eee eee enenennnn 
«a#ae INTRODUCTION 


FORMAT ¢’ PHOTO 3/7, 

1’ PHOTO is a program which allows you to record, or save, portions 
za (Ot Ba, / > 

3’ computer session. It is invoked by typing “PHOTO” <CR> at the " 
40" Vor +. 7, 

>’ Executive Level prompt. You will then be asked to supply a file 
6 name’,/, 

7’ to which the PHOTO session is to be recorded. PHOTO will record 
8 whaet’,/, 

9’ you type, as well as the responses back from the computer. Whil 
“e you’,/, 

1’ are in PHOTO, everything will work as normal. The control chara 
2cters a7; 

3’ still remain as before and you still get the same prompts. What 
4 this.7, 

3’ means is, you cannot use “*C to exit from PHOTO. The normal mea 

td 


Os 


Gnhsewo. ,/, 

7 Sexicuing PHOTOG is to type “POP” tollowed by = <CR> at the “GC oro 
Smpt. 5/775 

9’ There is one control character peculiar to PHOTO; “Y (control /Y 
te Le oS 5 

1’ is used to suspend the PHOTO session. When you are ready to con 
2cinue” ,/, 

So srecorcing,;sinput. nother 7~Y¥.°,//, 

4’ One additional note. You must first POP out of PHOTO before you 
Sean’ 5/7, 

6 log out.” ~//72 


ween BEEPS ETC 


FORMAT(’ If you check your directory after POPing out of PHOTO, yo 
lu will see the new’,/, 

2’ file. Yov can use the TYPE command or enter XED to view it. XE 
SD Will wlso’,/7, 

4’ allow you to edit it.’,//, P 

5’ While in PHOTO the system beeps at you ‘(every 30 seconds by defa 
Slubes ect YOU i, 

6’ desire to change the frequency of the beeps or eliminate them en 
7esrely, you’ ,/, 

8’ use “/INTERVAL: (frequency in seconds)” following PHOTO:’,//, 

= i @CPHOTO/INTERVAL:0O - Removes the beeps’,//, 

a GPHOTO/INTERVAL:60 -~ Gives you beeps once a minute’,//) 


SIGN-OFF ROUTINE 


FORMAT(C’ This concludes the PHOTO section of this tutorial’,//) 
FORMAT(’ Sorry you have to leave so soon. Hurry back.’,//) 
FORMAT(C’ ENTER A “Q* TO QUIT, ANY OTHER KEY TO CONTINUE. ’,S) 
FORMAT <¢ ’ ENTER ANY KEY TO RETURN TO THE MAIN MENU: ’,S) 
FORMATC(1A1) 

FORMAT (////) 

END 


ne? 
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SUBROUTINE ARMND(CDUM) 


—_——_— — = ee Se ee ee ee ee eee eee eee 
I ES eS ee ee ee 


= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE REMIND MESSAGE 


TICKLER SYSTEM: 


et ee ee ee ee ee ee ee ee ee ee ae ee ee ee ee ee ee ee ee ee ee ee ee 
ee ee ee ee ee ee eS ee ee ee ee es ee ee ee ee es Se ee ee ee ee ee ee ee se ee hr he 


DIMENSION INPUT ClO [DENI (2) (DEMN2Z (1), DENSK«27 


«eee INTRODUCTION TO REMIND 


TYPE 1600 
TYPE 1000 


seee QUERY TO SEE IF USER WOULD LIKE TO CONTINUE 


TYPE 2300 
READ(05,1400,ERR=10) INPUT 
TYPE 1600 


IF CINPUT (1).50.’°N’ .OR.INPUT(1).EQ.’n’)GO TO 300 


seve DEMONSTRATION OF ENTERING REMIND PROGRAM 


NUM=0 

TYPE 1010 
READ(05,1410,ERR=30) DEMi 
TYPE 1600 


ITP CDEM1 <1). EO. °G* OR DENI (1) FO. Gg' GG stegso0 
IF (DEM1¢1)> EQ. ”’REMIN’ .AND.DEM1(2)>.EO.°D* 7G@R.- DENIC?) EO] reniq saa) 


1D. DEM1I (2) FG. di 9G0 TOroe 
NUM=NUM+1 

GO TO (35,40,45) NUM 

TYPE 1340 

GO TO 30 

TYPE 1350 

GO TO 30 

TYPE 1020 

TYPE 1360 
READ(05,1400,ERR=45) INPUT 
TYPE 1600 


IFC INPUT <1) .EQ:”’OQ”’ .OR. INPUT (1) .EQ.”’q’ )GO) 1G) S00 
TF CINPUT (1) EQ.” Y° oOR. INPUT (1) .20."y 9GO Tomas 


se2e DEMONSTRATION OF REMIND OPTIONS 


NUM=0 

TYPE@1Os0 
READ(05,1400,ERR=65) DEM2 
TYPE i600 


LF CDEMN2 (C1) .6O.°@G° .OR DENZ (1) EO. -¢ 9GO T@2c00 


TP CDEN2¢i) EO.” 7°) GO TO 80 
TYPE 1040 
GO TO 60 


70 NUM=0 
80 TYPES Oso 
Tee LOSS 
TYPE 2370 
READ(05,1400,ERR=90) INPUT 
TYPE 1600 
TE CINPUT(CI> OQ. G° .OR-INPUTC1)..FO.%q"7)GO TO 300 


sees DEMONSTRATION OF CREATING A REMIND MESSAGE 


wna 


0 TYPE TO60 
READ(05,1410,ERR=90) DEMS3 
TYPE 1606 
iP CDEMSCi> ~BO. O° OR. DENS (Cia fo). 4 GO, TO 300 
IF CDEMS(1).E0Q.* CREAT’ .AND.DEM3(2).EQ.’E’ .OR.DEM3S(1).E0Q.’creamt’.AN 
1D.DEM3¢(2) .EQ.’e’)GO TO 150 
NUM=NUM+1 
GOT TO (110,115,120). NUM 
Geile) TYeeE, 1350 
GQ TO $0 
125 TYPE 1340 
GO’ TO so 
£20 TYPE 1065 
TYPE 1S60 
READ(05,1400,ERR=120) INPUT 
TYPE 1600 
TEerINPUT Gl) .bEO.°O”° OR. INPUTCID2EO.“q°2GG TO soo 
iP CONPUT (1) .EQ.’°Y" .OR.INPUT<(1).EQ.’y’)GO TO 90 


Cc ss#ee DEMONSTRATE WRITING A MESSAGE 


150 NUM=0 
200 TYEE. LOS 
Z2iL0 TYPE 1370 
READ(0S,1400,ERR=220) INPUT 
Tyee 2600 
IF CINPUT(1) .FQ.°Q’ .OR.INPUT(1)>).EQ.’q’)GO TO 300 
PAPAS, TYPE 1090 


Cc 

Cc SZUGN-=GFESROUTINE 
C 

240 TYPE 1700 


TYPE 1380 
READ(05,1400,ERR=260) INPUT 
260 RETURN 
300 TYPE 1200 
320 TYPE 1380 
READ(05,1400,ERR=340) INPUT 
340 RETURN 


Cc eeee EXPLANATION OF REMIND 
MOCO FORMAT (C20X, “REMIND” ,//,; 


1’ REMIND is a program which allows you to create reminders for yo 
ruirselt (or’ ,/, 


2’ others) which will be sent by the system at a specified time. 
*You may’,/, 
3’ schedule a reminder to be sent only once, or as frequently a 
*s you like.’,/, 
4° You may also select whether the reminder will be mailed to your 
* mailbox, or’,/, 
3’ displayed on your terminal screen, or both.’,//) 

1010 FORMATC’ To use the REMIND program, type “REMIND <CR>* at the E 
*«xecutive Level prompt.’,/, 
1’ Go ahead and try it (Remember, you can always quit by entering a 
» "QO" at any’,/, 
2 . DPEORDt.. «+7 es ae a, 0 

1020 FORMAT(’ What you should have typed was: REMIND <CR>’,//) 

1030 FORMAT(’ After you have entered “REMIND <CR>” the following will 
lappear on your screen:’,//, 
Pg REMIND VERSION 1.0¢€2)-37,/, 
CS MONDAY, NOVEMBER 25, 1985 1:42AM’ 57, 
4’ REMIND>’,//, 
S’ Typing a question mark (7?) at any point in the remin program wil 
*l display’,/, 
6’ various available options. Try it yourself: ’,//, 
7’ REMIND>’ ,S) 

1040 FORMAT(’ What you should have typed was a question mark.’,/,’Try 
lagain, please: ’,//,’ REMIND>’ ,S) 

LOS0O “FORMAT” CREATE 77, 
ie OA YW ENE 7, 
Peg de) 8) 5) 4) 4 A 
3, SE XI“, 
4’ HEADERS’,/, 
> (une Ee 4 4; 
6” SMODIFY ~,7, 
7 QUE 7 » 
8” SURVEY ;7, 
S* TYPE; 
"UNDELETE *..47 2 

1055 FORMAT(’ The above list comprises the options available to you in 
*REMIND. Most of them’,/, 
1’ are self explanatory, however, it is helpful to know that DAYTIM 
*EF will tell you’,/, 
2’ the current exact month, date and time, while SURVEY lists all R 
*EMIND messages’ ,/, 
3’ you have sent recently. Use the HELP command to find out about t 
*he other’,/, 
4° commands if you are uncertain of their meanings.’ ,//) 

1060 FORMAT(C’ Let’’s try CREATEing a REMIND message. Type CREATE <CR> a 
ifter’,/,’ the REMINDS prompt.*,//, ° REMIND’ ,=) 

10653 FORMAT(C’ What you should have typed was: CREATE <CR> ’,//) 

1080 FORMAT(C’ The REMIND message format has a number of fields for you 
“to enter the’,/, 
1’ appropriate information requested. It is, again, fairly self e 
*xplanatory,’,/, 
2’ so I am only going to show you an example. Of course, you can, 
“as always,’,/, 
3’ type a question mark if you get stuck. This is what a completed 
* REMIND’ ,/, 


Te 


4° message will look like:’,//, 
6’ REMIND>CREATE’,/, 
7’ First reminder at: L234 Olt 
8’ First reminder will be sent Monday, November 25, 1985 12:34PM’,/, 
9° Frequency of reminders: ONCE’,/, 
*” Notify mode: MAIL’,/, 
1* To: JONESDTW’ ,/, 
2° Subject: MEETING AT 1400 TOMORROW’ ,/, 
3” Meg: ,7, 
a° ‘ee8 HEY ,-DAN?!* 7, 
2’ I FORGET TO TELL YOU WE HAVE A MEETING ON THE JCS CHANGES’ ,/, 
6’ PROPOSAL TOMORROW AFTERNOON. BE PREPARED TO SUPPORT YOUR VIEWS!’ 
Tepe eee fg OO oo JST Sy 
8’ Notice you end the REMIND message with a “Z.’,//, 
9° A word of advice: When prompted for mode of notification, you h 
eave three’,/, 
*’ options: SEND, MAIL or BOTH. SEND will result in a receipt only 
* “35 the? i, 
1’ recipient is logged on to the host when the REMIND is sent (it i 
*s sent directly’,/, 
2’ to his screen at send time). MAIL causes the REMIND to be sent 
"only co. the ,7, 
3’ recipient’’s mail box. BOTH will result in both SEND and MAIL.’ 
*,//, 
4’ That’’s all there is to it! The message is automatically queued 
*, then’ ,/, 
5’ forwarded at the time indicated.’ ,//) 
1090 FORMAT(C’ The next time JONESDTW (Dan) logs onto the host after 12: 
134PM’,/,’ on 25 November 1985, he will be told he has mail from th 
2e REMIND’,/,’ Daemon in his MSG file. By going into MSG, finding o 
Sut the number of’,/,’ the message, and giving the “TYPE (number) < 
4CR>* command, the REMIND ’,/,’°’ message will be printed out.’,//) 
o2OO FORMAT<” This concludes the REMIND portion of this tutorial.” ,//) 
1200 FORMAT’ Sorry to see you quit so soon. Goodbye.’,//) 
1300 FORMATC’ Would you like to continue (Y or N)? ’,S) 
1340 FORMATC’ No. Try again, please.’,//) 
1350 FORMATC’ Oops! I’’11l pretend I didn’’t see that!!’,//) 
1360 FORMAT(’ Do you want another chance (Y or N)? ’,5S) 
1370 FORMAT(’ Enter a "OQ" to quit, any other key to continue: °’,S) 
1380 FORMAT(’ Enter any key to return to main menu: ’%,S8) 
1400 FORMAT(1A1) 
1410 FORMAT(2A5) 
1600 FORMAT(////) 
END 
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SUBROUTINE AFNGR(CDUM) 


AND IDENTIFY USER SYSTEM 


DIMENSION INPUTC1) ,DEM1(2) ,DEM2¢3) 


eeee INTRODUCTION TO FINGER 


TYPE 1600 
TYPE 1000 


sense QUERY TO SEE IF USER WOULD LIKE TO CONTINUE 


TYPE 1370 

READ(05,1400,ERR=10) INPUT 

TYPE 1600 

IF CINPUT(1).EQ.’Q’ .OR.INPUT(1) .EQ.’q’)GO TO 300 


sees DEMONSTRATION OF ENTERING FINGER PROGRAM 


NUMN=0 

TYPE 1010 

READ(05,1410,ERR=30) DEM1 

TYPE 1600 

TF CDEM1(1) .BQ.’Q”" GR DENIC) EG. Gg JGO Tee seo 


IF (DEM1(1).EQ.’FINGE’ SAND.DEM1 (2) .EQ@.”°R’ .OR.DEM1¢(1) .EO.”’Zfinge’ 2AN 
1D.DEM1(2) .EQ.’r’)G@"TO 70 


NUM=NUM+1 

GO TO (35,40,45) NUM 

TYPE 1340 

GO TO 30 

TYPE 1350 

GO TO 30 

TYPE 1020 

TYPE 1360 

READ (05,1400,ERR=45) INPUT 

TYPE 1600 

IF CINPUT(C1) .EQ@.”’Q° .OR. INPUT (1) .EO.°q’ GO TG S00 
IFCINPUT(1).EQ.’Y’ .OR.INPUT(1) .EQ.’y’)GO TO 10 


e#ee DEMONSTRATION OF FINGERING YOUR HOST 


NUM=0 

TYPE 1050 

TYPE 1370 

READ (O5,1400,ERR=85) INPUT 

TYPE 1600 
IFCINPUT(1) .EQ.’Q’ .OR.INPUT(1).EQ.’q’)GO TO 300 
TYPE 2055 

TYPE 2370 


les 


= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE FINGER LOCATE 


READ(05,1400,ERR=88) INPUT 

TYPE 1600 

TE CANPUT CIO ..EO.’” GR. INPUTCI? EO. “q° GO TO 300 
88 TYPE 1058 

TYPE 1370 

READ(0OS5,1400,ERR=90) INPUT 

TYPE 1600 

LPC INPUTC1>).EO.°Q*.OR.INPUT(1).EQ.%q’)GO TO 300 


sense DEMONSTRATION OF CREATING A FINGER. PLAN 


NUM=O0 

TYPE 1060 

READ(05,1415,ERR=90) DEM2 

TYPE 1600 

DRC DEM2Z(C1> EG. @ .OR.DEM2(1).EO.°q°>GO TG soo 

iP CDEM2(i> EG. FINGE” -AND.DEM2(2).EQ:"°R JON’ -AND.DEM2(3).EO.’ESDTW 
1’ .OR.DEM2(1).EQ.’finge’ .AND.DEM2(2).EQ.’r jon’.AND. DEM2(3).EQ.’es 
2dtw’)GO TO 150 

NUM=NUM+1 

GO 70 (110,113,120) NUM 
2 Eye e sls 50 

GQ>Te 30 
Gs) TYPE 1340 
GO TO 90 

120 TYPE 1065 
TYPE 1360 
READ(05,1400,ERR=120) INPUT 
TYPE 1600 

TEC INPUT (I>) 2EOQ.°OQ° OR. INPUT <(1).5EO."%q@"° ?GO TO 300 

PRPCINPUTPCi) -EOs”Y°.OR.INPUT(C1).EQ-”“y°>GO TO 89 


wMmanana 


Oo WO 


3 eee2 DEMONSTRATION OF WHAT A FINGER.PLAN LOOKS LIKE 
i NUM=0 

200 TYPE 1080 

4 eaxee SIGN-OFF ROUTINE 

Bic TYPE 1100 


TYEE. 1380 
READ(05,1400,ERR=260) INPUT 
260 RETURN 
300 TYPE 1200 
320 OYPE 1380 
READ(05,1400,ERR=340) INPUT 
40 RETURN 


enneneeese FORMATS FOR FINGER SUBROUTINE teeenennnane 
sene EXPLANATION OF FINGER 
OOO ) FORMAT C2Z0xX, “FINGER’ ,//, 


1’ FINGER is a program to help locate and identify users on a syst 
eem. It is’,/, 


1010 


1020 


1050 


lola Es 


10358 


2’ called from the Executive Level by the FINGER command. Its main 
«features are’,/, 

3’ personal name and line locaton output. FINGER will also allow y 
*ou to leave a’,/, 

4’ message called a “plan” in a file called FINGER.PLAN to be print 
eed out if’,/, 

5’ somebody FINGERs you and you are not logged on. This file is a 
«free-form text’,/, 

6’ file and the file protection should be at least 775252 to allow 
“other users to’,/, 

7° wead 1." 772 

FORMAT‘’ To FINGER users on a system, type “FINGER <CR>" at the E 
*xecutive Level prompt.’,/, 

1’ Go ahead and try it (Remember, you can always quit by entering a 
* “Q" at any’,/, 

2° prompt.) : 7,0 ca, =) 

FORMAT(’ What you should have typed was: FINGER <CR>’,//) 
FORMAT(’ User Personal name Job Subsys Idle TTY Co 
insole location’,/,’ CLYNN Charles Lynn iS PICKLE 

2 344 Batch job’,/,’ HERBERTMK M.K. Herbert 37 TYPE 

3 -212 NPS-TAC.ARPA#27’,/,° SMTP System Utility 8 75 
4MTPSD «soo Job ©, OPERATOR, SYSJOB 77,  WESTTA TA. WEST 
S SS AcE) 211 NPS-TAC.ARPA#13’,//) 

FORMAT(’ Other calling sequences for FINGER.PLAN include:’,//, 

1’ @ FINGER / <switches> <username>’,/, 

2’ @ FINGER <USERNAME> / <SWITCHES>’,/, 


3’ <USERNAME> May be blank to mean all users, or a local usernam 
4e, or’ ,/,° ea foreign username of the form <username>@<host 
Soa os If the username is not specified, a terse summary 
6) CFG, 75." all users is output ordered alphabetically by u 
7sername.’,//, ” If a username is specified the output is m 
Such. more detailed, showing the normal one-line job 5s 
Status,” 7," the last logout time and line if the user is n 
Sot) log=°;/7,° ged in, the last time the mail was read, and 

lwhether’,/,’ there are any pending messages, and the user’ 
2° See, current FINGER.PLAN.’,//) 

FORMAT(’ <SWITCHES> If no SWITCHES are specified the defau 
Lite@ 7,” are: /DETACHED /NO-OPERATOR. Specified SWITCHES 
2are 7/7;  /DETFACHED Display detached jobs.’,/, 
3° /DIAL-IN Display dial-in jobs only.’,/, 

4’ /HELP Show this message.’,/, 

2 7 NO] DETACHED Suppress display of detached jobs.’,/, 

6’ /NO-OPERATOR Suppress display of operator jobs.’,/, 

7’ /OPERATOR Display operator jobs.’,/, 

So ek Sse Don’’t output plan and mail information just the 
9 one~’,/,’ line job status.’,/, 

«’ /VERBOSE Output plan and mail info and whatever info the 

lperson’,/,’ hes in the INQUIR database, except for t 
zhe’ ,/,” account. Ignore if no username given.’,/, 

3’ /WHOIS Useful for remote users. Site dependent info is 

4diae~ ,7,* Played about the user. For any ISI site th 
Del oe 5 INQUIR data exists the following is displaye 
Gis ogee personal name, network address, the home ad 
7dress’,/,’ and phone, work address and phone, projec 
St. are) 


lites 


1065 
1080 


zeeex MAKING YOUR OWN FINGER.PLAN 


FORMATC’ To make your own FINGER.PLAN, Simply make up a file in XE 
iD, set’,/,’ file protection at 775252, and title it FINGER.PLAN. Y 
2ou ”,/,”* can update any time you wish, of course. Let’’s see what 
SFINGERing’,/,’ an individual looks like. Type FINGER JONESDTW <CR> 
4 after’,/,’ the Executive Level prompt.’,//,’ @’,S) 

FORMAT(C’ What you should have typed was: FINGER JONESDTW <CR>’,//) 

FORMAT(C’ JONES DANIEL THOMAS W. JONESDTW not logged in’, 
i//,’ Last logout Tue 26-Nov-85 14:01 from TTY233’,//, 

2’ Netmail from WBA@MIT-XX.ARPA at Tue 26-Nov-85 17:31, last read’ 
3,7,’ on Tue 26-Nov-85 12:58.’,//, 

4° Pien:?;,7/, 

Dow hiss my pleany. )this is my dream... to hmnamhmm...6. 5/75 

6’ Sorry I’’m not here to talk to you!! Leave a MSG; I’’1l1 be in’ 
7,7, couch mos skosh!!?*,/77, 

8’ To learn more about a4 person, type “FINGER <username>/VERBOSE. 
“You will get’,/, 

9’ the FINGER information as in the above example plus the informat 
*ion from the’ ,/, 

*’ person’’s INQUIR file. (See INQUIRE portion of this tutorial). 
ne Fe ar a) 


FORMATC’ This coneludes the FINGER portion of this tutorial.’,//) 
FORMAT(’ Sorry to see you quit s0 soon. Goodbye.’,//) 

FORMAT(C’ Would you like to continue (Y or N)? ’,S) 

FORMAT(C’ Enter any key to continue: ”,S) 

FORMATC’ Sigh. I guess it’’s just not your day.’,//) 

FORMAT(C’ Aaack!!! Call the repairman! You’’ve scrambled my innards 
2 eer a Ap 

FORMATC’ Do you want another chance (Y or N)? ’%’,S) 

FORMAT(C’ Enter a “Q" to quit, any other key to continue: ’,5) 
FORMATC’ Enter any Key to return to main menu: ’,S) 

FORMAT (1iAi > 

FORMAT ¢(2A5) 

FORMAT (3A5) 

FORMAT(////) 

END 
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SUBROUTINE AINORCDUM) 


ffs 2 Rae Ses SS SSS == == TNOUIR SUBRGUTLINE————- === = =a === 6S ee ee ee 
= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE “INQUIR™ PROGRAM = 


afaoweeeewewe@wewf2@eww we www www eww ewe Ss ws es ww we wwe sw es ssw Ss Tews —"—"— 2 Ss Ss Ss Ss Ss Ss ZX Ze lZsZs ss ST sw sw Ss ws |S |S — 
it et eee ee ee ee se ee ee ee ee eee ee ee 


DIMENSION INPUT(1) 
«eee INTRODUCTION TO INQUIR 


TYPE 1600 

TYPE 1000 

TYPE S1TO30 

READ(05,1400,ERR=100) INPUT 

TYPE 1600 

IF CINPUT(1).E0.’°OQ" -OR. INPUT (C1) .EQ@. a“ GOGe7G S20 
TYPE 1010 

TYPES LOLS 

READ(O5S,1400,ERR=120) INPUT 

TYPE 1600 

IF CINPUT(1) .EQ.”*N* .OR. INPUT?) EO. nO GOmGs ozo 


seen EXAMPLE OF COMPLETED DATA BASE & SHOW COMMAND 


TYEE SOZO 

TYPE SOso 

READ(05,1400,ERR=130) INPUT 

TYPE 1600 

IF CINPUT(1).E0.’O”* .OR.INPUT(C1>.5O.°¢q")GO Taesoze 
TYPE 1040 


ween SIGN-OFF ROUTINE 


TYPE 1240 

TYEE 370 
READ(OS,1400,ERR=510) 
RETURN 

TYPE S230 

TYPE 1370 
READCOS, 1400, ERR=S307 
RETURN 


et#eeeeeeeeeaeeeaePORMATS FOR INQUIR SUBROUTINE @4 ee eee eee nn nen ennanne 
#e#ee INTRODUCTION TO INQUIR 


FORMAT (//, ” INQUIR’,//, 


1’ INQUIR allows you to enter information into a file which can the 
2n be read’,/, 


3’ by yourself or others using the “FINGER /VERBOSE <username>" com 
4mand. ts Ac 


5’ is entered Fy typing “ZNCUIR <CR>" after the "G"' Executive Leve 


113 


a 


010 


GSleprompe. «7s 

7’ The system will respond with the ">" prompt, following which you 
8 type the’,/, 

9° command "MODIFY <username> <CR>", where user name is your accoun 
*t name.’,//, 

1’ The system now will be at its entry level, and will either respo 
2nd with “4° 7/, 

3’ “>>” prompt (if data is already in the file), or with questions 

4(32 there’ ;7, 

5° is no information in the file).‘,//, 

6’ Please note that while you are answering these questions, or lat 
7er meking’ ,/, 

8’ changes, the editing controls (DEL KEY, “R, “W etc.) may be used 
9.0 The “Z’;/, 

*’ is used to complete the remarks section.’,//) 


PORMAT(C/7, 

1’ When you finish with the questions you will be placed at the ">> 
2 Epronoe. Gv ¢ 

3’ The commands now available can be viewed by entering a “"?", 
Yas usual.’,/, 

5’ The more useful of these are:’,//, 


6’ ALL Allows you to review/change the entire data ba 
FEC. 5,77, 

S* <field name> Allows you to change a specific field.’,//, 

= SHOW Shows you the entire data base as it would app 
sear with’,/, 

1 the “FINGER /VERBOSE” <username> command.’ ,//, 
Ze EXIT Exits to the “> prompt from the ">>" prompt; 
Sor exits’,/, 

4’ LO the "G" prompt trom the "2" prompt «7,77. 


5’ Thus, once we are satisfied with the file, it takes two EXITs to 
6 get back’,/, 
7’ to the Executive Level.’,//) 


FORMAT(’ Would you like to see what a completed INQUIR file looks 
Pore (CY -Or Ne 2 eo oS) 


seen EXAMPLE OF INQUIR FILE / SHOW COMMAND 
FORMAT(C’ @GINQUIR’,/, 


ie voOblEyY  HERKERTNK’,/7, 
2 De SHOW, 7, 


3° \Pivrectory name: PS. <SHERKERTIMRO 37, 

4’ Name: are fn 

ns Nick name: BOOTS 5.73 

Se Work address: Ca7CURRICULUM. NPS MONTEREY, CA 9SS942-100 
vile ae 

8’ Work phone: (408) (645-2772 ° 57% 

ae Home address: SNC 1001, NPS MONTEREY, CA 93943-1001’ ,/, 
*’ Home phone: (408) 372-1665’ ,/,; 

as Network address: HERKERTMK’ ,/, 

ae Birthday: CLASS DE TED’ 7; 

3° > Supervisor: GARY POOCK (NET: ~POOCKG@GISIA)”./, 

4’ Project: INTERACTIVE TUTORIAL ON THE DDN NETWORK’, 


LAS 


6’ Relation. 

a4 Remarks: 

ay Account: 

sl Lagt legaut. {7 ; 
a? Last alteration: 
1” SOMEXIT’ Ge 

2°. > EXIT" 77 


FORMAT(’ ENTER “Q” 
seee REMARKS ABOUT 


FORMAT(’ Notice in 
1COUNT, NAME and’,/, 


Grad-Student’,/, 
God helps these which... ... 47, 
Se A 


HERKERTMK;: 25-Nov-85 00:31:42’ ,/, 


TO QUIT, ANY OTHER KEY TO CONTINUE: ” ,&) 
EMPTY er [ELVES 


the above output, certain fields are blank: AC 


2’ LAST LOGOUT. These fields are completed by the system when some 
Sone FINGERS’,/,’ the file with /VERBOSE.’,//) 


sense SIGN-OFF ROUTINE 


FORMAT(’ This completes the tutorial section on INQUIR.’,//) 


FORMAT(” SORRY YOU 
FORMAT(’ ENTER ANY 
FORMAT(1A1) 
FORMAT.<///72 

END 


RAVE TO RUSH OFF 72 
KEYo10 RETURN TOS RETAIN MENU: |S) 
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SUBROUTINE AEMH(DUM) 


====ELECTRONIC MAIL HOST SUBROUTINE=====2=======2========: 


= THIS SUBROUTINE EXPLAINS AND DEMONSTRATES THE ELECTRONIC 
eS. MAIL HOST MESSAGE HANDLING SYSTEM. 


———H—S ee ee ee ee ee eee eee eee eee eee ie ee 
ee ee ee ee ee ee ee ee _ 


DIMENSION INPUT(1) 


ee we 


TYPE 
TYPE 


“ene 


TYPE 


INTRODUCTION TO EMH 


1600 
1000 


QUERY TO SEE IF USER WOULD LIKE TO CONTINUE 


1300 


READ(05,1400,ERR=10) INPUT 


TYPE 


1600 


Te CINPUD Ci) oeO oN” WOR. INPUT CID LEO. n- JGO >TO S30 


ee ee 


NUM=0 


DEMONSTRATION OF USING EMH PROGRAM 


TYPE) LODO 


TYPE 


1320 


READ(0OS5,1400,ERR=35) INPUT 
TYEE. 1600 


TYPE 
TYPE 


1020 
1320 


READ(05,1400,ERR=40) INPUT 


TYPE 


1030 


TYEEss 320 
READ(05,1400,ERR=45) INPUT 


SiLGN- 


GFP ROUTINE 


TYPE 1100 

TYPE 1380 
READ(05,1400,ERR=48) INPUT 
RETURN 

TYPE 1200 

TYPE 1380 
READ(05,1400,ERR=70) INPUT 
RETURN 


eseeveeveeenvnnvee FORMAT FOR EMH SUBROUTINE «a8 cae eeeaer en aee teeta ener ene 


eee 


EXPLANATION OF EMH 


FORMAT C20X%, “ENH” .//7, 


ee 


ELECTRONIC MAIL HOST (SMH) °is a Special Kind of host on the nec. 


LOL 


1020 


1030 


* Thevonly’ ./- 

2’ capability an EMH has is sending and receiving messages. You wil 
*l1 be using’,/, 

3’ TN in this tutorial; if you’’ve forgotten that particular system 
*, you sghould’,7, 

4’ stop here and go back for a review.’,//) 

FORMAT(’ To use EMH, obviously you will have to know someone who i 
*s only on that system,’,/, 

1’ worse yet, you will have to know the correct password(s) to get 
*into that’ 77; 

2’ particular EMH location. For example, Hawaii has an EMH. In th 
ele tutorind’ 47, 

3’ we will login using “NPSCLASS" with a first password of FALLDOWN 
* and a second’,/, 

4’ password of SPRINGUP. EMH passwords change frequently to prevent 
* idle chitcha't,-,/, 

S’ user abuse and large, inexplicable bills. Unless you have a good 
*-end valid’,/, 

6’ reason to access an EMH, you will probably not be able to get in 
Rog 

FORMAT(’ Here is a demonstration of accessing an EMH “Host” and s 

lending’,/,’ a message:’,//, 

2’ GTN HAWAII-EMH’,/, 

S 8trying.-. Open’ ,/, 

4” sloéogin: NPSCEASS ,7, 

S’ PASSWORD: <falldown>’,/, 

6° BBNCC RELEASE S.s.3. PINSTALEED 4° SEP 76s 47, 

7° HAWATI ELECTRONIC MATL HOST", 7, 

67) TERM = CT LIaia Yr. 

9S’ ERASE SET TO BACKSPACE’ .7, 

*’ WELCOME TO INFOMAIL -- VERSION 2.5.1 =-- USED UNDER LICENSE FROM 
IBBNCC’ ,7, 

2° USER NANE* -NPSGLASS".7, 

3’ PASSWORD: <apringup>’,//7, 

4’ INBOX NOW OPENED (NB: This is messages you are in receipt of)’, 
aS, 

egy CSOD CA Bare = 

6’ 1 FROM:POOCK @ US /SUBJECT: THESIS QUESTIONS? 237 29 NOV "65 18.242 
GMT / 75 = es) 

FORMAT(’ You have a number of options in EMH: ’,/,”*’ DESK, INBOX, O 
LUTBOX, FILES, FORMS, TRASH, PROFILE, CURRENT, PREVICUS, .-,. +7 7a 
2 LAST. ALL... 77 
’ Other options used to manipulate message formatting, etc are:’,/ 
3,”° COMPOSE, COPY, CREATE, DESCRIBE, DISCARD,  DISPEAY, EDia; 
4 PEN,’,/,’ EXAMPLE, EXIT, EXPORT, FILE, FORWARD, GET, IMPORT, K 
SEEP, LOOKUP, MAIL,’,/,* MAKE, MOVE, NEXT, OPEN, =PRINT, GUI7 SS ReEAC- 
6&6 REMOVE, REPLY, RESTORE, SCAN,” ,/,° SET, SHOW, SYSTEM, fern hal 
FACE 
8’ A goodly number of these are self-explanatory, but if you find o 
Sne’,/,”’ is a bit confusing, a@ question mark typed after the option 
* will elicit’,/,’ an explanation. Unfortunately, the ESC and CONTR 
10L keys do not work’,/,’ well, if at all, in EMH. Other than readi 
2ng your INBOX, you will probably’,/,’ find the COMPOSE option, use 
3d to create a message, the most useful.’,//,20X,’SPECIAL NOTE’,//, 
4’ Since the control characters do not work in EMH, we cannot termi 


* 


eee 


“nate the text’,/, 
>’ of a message with “Z. Instead, enter a PERIOD "."* on a line 
“itself followed’,/, 
6’ by @ carriage return.’,//) 

FORMATC” This concludes the EMH portion of this tutorial.’,//) 
FORMAT(’ Sorry to see you quit 30 soon. Goodbye.’,//) 

FORMAT’ Would you like to continue (Y or N)? ’,S) 

FORMAT(’ Enter any key to continue: ’,5) 

FORMAT’ Enter any key to return to main menu: ’,S) 

FORMAT (1A1) 

FORMAT(////) 

END 


es 


by 


Cc 

SUBROUTINE AEMACS(DUM) 

TYPE 100 

RETURN 
100 FORMAT(///’ THE EMACS PART OF THIS TUTORIAL HAS YET 710 BE GRITTEene 

per a? 

END 

Cc 
Cc 


Ne 


Cc 
SUBROUTINE AGRAPH (DUM) 
TYPE. 100 
RETURN 
100 FORMAT(* THE GRAPH PORTION OF THIS TUTORIAL HAS YET TO BE WRITTEN. 
sere Ar Ae 
END 
Cc 
C 


ie 


an 


AAAAAA 


LO 


20 


30 
Cc 
Cc 
C 
C 
C 
a 


000 


1005 


SUBROUTINE BILEG< aun) 


= THIS SUBROUTINE OUTPUTS ADDITIONAL SOURCES OF INFORMATION ON = 
= THE DDN NETWORK AND THE TOPS-20 OPERATING SYATEM = 


awa @weewewreewewew ws eww ewewewe eww wi eewewewewewe ww eZ ws" BF BZ wZwZ™seeuzwZewwwZwZeZ_Z ZT Bwewewe Fee sw es BS sess se Ss oS = = 
ee ee ee ee ee ee ee ee ee re ee ee ee ee se ms hme ee es ee se ee ee ee 


DIMENSION INPUT(1) 

TYPE 1600 

TYPE 1000 

TYPE 1206 

READ (05,1400,ERR=10) INPUT 
TYPE 1005 

TYPE 1200 

READ (05,1400,ERR=20) INPUT 
TYPE 1010 

TYPE 1240 

TYPE 2230 
READ(05,1400,ERR=30) INPUT 
RETURN 


weeeeeeFORMATS FOR BIBLIOGRAPHY SUBROUTINE*#sssseannsanasnnnseaane 


FORMAT(10X,’WHERE TO GO FROM HERE’ ,// 

1’ The following materials serve as excellent sources of informatio 
#*n on the’,/, 

2’ TOPS-20 operating systems and sub-systems, including HELP, 7, AC 
ST LON Gy 

4’ DOCUMENTATION, FTP, TN, FINGER, MM, HERMES, XED, EMACS, REMIND, 
SPHOTe.. 7 » 

6” WHGIS, ARCHIVE AND SCRIBE. ;. 7/7, 


7° USER” S GUIDE TO 1GPsS-20 TOPS=207,7 , 

8° WAYNE TANNER CHLGE SG@MMERS HOLG’ 47, 
9’ SEPT 1983 & APRIL 1984 _ AUGUST 1983’,/, 

#* USC INFORMATION SCIENCE INSTITUTE USC INFORMATION SCIENCE 
i INS@LITULE’. 7, 

2’ 4676 ADMIRALTY WAY LBL as 


3° MARINA DELOREY, CA, 90292", 7, 
4% (203) 622-151 03Ex4T 289°7,7, 
> “ACTION G Sie. 7/7, 


6’ PROFESSOR GARY POOCK’,/, 

a CGDE S5PK-47, 

8’ NAVAL POSTGRADUATE SCHOOL’,/, 
9 MONTEREY, CA 93943’,/, 

o: POOCKGUSC-ISIA’,//) 


FORMAT’ The following are informative sources on the creation of 
lthe Defense Data’,/, 

2’ Network, where it’’s at today and where it’’s going:’,//, 

3° DDN NEW USEF GUIDE «(NIG.3000)) 7.7, 

4° MARCH 1985’,/, 


ie 


1010 


1200 
1240 
1250 
1400 
1600 


heh 
&’ 
ht 
8’ 
97’ 


DDN NETWORK INFORMATION CENTER’,/, 
DDN PROGRAM MANAGEMENT OFFICE’,/, 
DEFENSE COMMUNICATION AGENCY’,/, 
WASHINGTON, D.C.’,/, 

(7 O38 7teZS or SCco 7770 


FORMAT(C’ Useful addresses:’,//, 


shes 


BOLT, BERANEK AND NEWMAN INC. 


Z2PORATION’,/, 


pe 


sO MGUETON STREET 


Sie Gok eb ee ar 


Ss” 


CAMBRIDGE, MASSACHUSETTS 02238 


G2Z205 57/75 


7 oe 


DIGITAL EQUIPMENT CORPORATION 


8,/, 


97 


PO BOX CS-2008 


*Eo INSTLIULE 37, 


ates 


NASHUA, NEW HAMPSHIRE 03061 


221.5 1100777, 


a4 


4RNIA 902917’,/, 


bo 
6’ 
Wes 
8’ 
9A 


a’ 


FORMAT(C’ ENTER ANY KEY TO CONTINUE: ’,5) 
This concludes the bibliography section.’ ,//) 
TYPE ANY KEY TO RETURN TO THE MAIN MENU: ’,58) 


FORMAT ¢ ” 
FORMAT ¢ ’ 


MASSACHUSETTS INSTITUTE OF TECHNOLOGY 


ARTIFICIAL INTELLIGENCE LABORATORY 
ATTN: PUBLICATIONS 

545 TECHNOLOGY SQUARE 

1321357, 

CAMBRIDGE, MASSACHUSETTS 02139’,//) 


FORMAT(1A1) 
PORMAT<// 7/7) 
END 


Wee 


COMPUTING ANALYSIS COR 
PH400 WILSON BLVD. oUL 
ARLINGTON, VIRGINIA 2 
DOCUMENT DISTRIBUTION’ 
USC INFORMATION SCIENC 
4676 ADMIRALTY WAY, SU 
MARINA DEL RAY, CALIFO 
UNILOGIC, LID’ ,7. 


160 N. CRAIG’,/, 
PITTSBURG. PENNSYLVANI 


This Flowchart Describes The Main Program 
Of The interactive Tutorial For The DDN. 


INTRODUCTION 


MENU OF 
INSTRUCTIONAL 
SUBROUT INES 






NTRODUCTION TO 
HELP, ACTION, ? 


BASIC EXECUTIVE 
LEVEL COMMANDS 


ADYANCED EXECUTIVE 
LEVEL COMMANDS 


MSG 
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Pile 
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if 


PHOT 
m REMIND 


| MOUIRE 


FINGER 


m™ 
om A 
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EMACS * 


GRAPH* 


WHERE TO GO FROM HERE 


QUIT * DENUTES EMPTY SUBROUTINE 
Ze 


This Flowchart Describes The ELC1 Subroutine: 
FROM 


MAIN 
PROGR AM 


INTRODUCTION 


BASIC CURSOR 
COMMANDS 


DIRECTORY 
RELATED 
COMMANDS 





SUBROUTINES TO 
DEMONSTRATE 
DIRECTORY 
RELATED COMMANDS 


DIRECTORY 
TYPE 
APPEND 
RENAME 
ARCHIVE 


DELETE 
UNDELETE 
ESPUNGE 


SYSTEM RELATED 
COMMANDS 
CLUSING 
INFORM AT ICtty 
RETURM 


uo To ON 
( MAIN \ 
PROGRAM , 

f 


i 
~e. a 


— eee 


This Flowchart Describes The ELC2 Subroutine: 


FROM 
MAIN 
PROGR AM 


INTRODUCTION 


ADV ANCED CURSOR 
COMMANDS 


DIRECTORY 
RELATED 


COMMANDS 





SUBROUTINES TO 
DEMONSTRATE 
DIRECTORY 
RELATED COMMANDS 


SYSTEM RELATED 
COMMANDS 
CLOSING 
INFORM AT IOG 


RETURN 


Ve 1 


MAIN 
PROGR AM 
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This Flowchart Is Typical For The Following Subroutines: 


INTRODUCTION 
AMSG (MSG) 
AXED (XED) 
ATN (TN) 

AFTP (FTP) 
APHOTO (PHOTO) 
ARMND (REMIND) 
AINGR (INQUIRE) 
AFNGR (FINGER) 
AEMH (EMH) 










YES 


SPECIFIC 
COMMAND 
REQUEST 
USER INPUT 
RESET COUNTER 
FOR NUMBER USER INPUT 


OF TRIES (NUM) 


ERROR MESSAGE 
sas 





MORE 


TO DEMO 
ee 





YEG Uo.” 
ERROR MESSAGE Rene 
* | 


NO 


SECOND TRY _- 


” 









YES 





NO 


PROPER 
RESPONSE 


Lei 





This Flowchart is Typical For The Following Subroutines: 


RESET TRIES 
COUNTER 


DIRECT 
TYPE 
APPPEND 
RENAME 
ARCHIVE 
UNDELETE 
EXPUNGE 
TALK 


ERROR 


MESSAGE #2 


ERROR 
MESSAGE *1 


FROM 
SUBROUTINE 
ELC1 & 2 
COMM AND 
& ITS USE 
Ym 
REQUEST FOR foe 4 
USER INFUT L ae } 






“READ USER 
INPUT 





RETURN 





2 


TRY ? 
a v 


i 
x ra 


pt 


vi * 
et 


YES |” SECOND 
SS IRN 7 






PROPER 
RESPONSE 






a 4 7 
YES re TRY Ss NL 
S AGAIN o- 
%, rs 
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This Flowchart Describes The Where To 
Go From Here Or BILBO Subroutine: 


FROM 
MAIN 
PROGRAM 


INTRODUCTION 


DEFINITIONS 


COMMANDS /USES 


HOW TO GET TO 
< BILBO > 


DOCUMENTS 


PERSONNEL 


INSTITUTES / 


COMP ANTES. 





— 
~~, 
Face = 


( RETURN | 
N ey 


os 


10. 


INITIAL DISTRIBUTION LIST 


Defense Technical Information Center 
Cameron Station 
Alexandria, Virginia 22304-6145 


Library, Code 0142 
Naval Postgraduate School 
Monterey, California 93943-5100 


Professor M. G. Sovereign, Code 74 
Naval Postgraduate School 
Monterey, California 93943-5100 


Joint C3 Curricular Officer, Code 39 
Naval Postgraduate School 
Monterey, California 93943-5100 


Professor Gary K. Poock, Code SSPK 
Naval Postgraduate School 
Monterey, California 93943-5100 


Major Tom Brown, USAF, Code 39 
Naval Postgrqaduate School 
Monterey, California 93943-5100 


LCDR Mark K. H. Herkert, USN 
c/o Commanding Officer 
FAIRECONRON THREE 


FPO San Francisco, California 96601-6517 


LT Sheri L. Smith, USN 
94 Montsalas Dr. 
Monterey, California 93943 


Chloe Sommers Holg 

University of Southern California 
Information Sciences Institute 
4676 Admiralty Way 

Marina del Rey, California 90292 


Joel Goldberger 

University of Southern California 
Information Sciences Institute 
4676 Admiralty Way 

Marina del Rey, California 90292 
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11. 


Sam Delatorre 

University of Southern California 
Information Sciences Institute 
4676 Admiralty Way 

Marina del Rey, California 90292 
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